Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  penis
Language: PASCAL
Code:
program prvociselka;
var d,v,x,pom,i:integer;
begin
d:=2;
v:=1;
writeln('zadaj cislo');
readln(x);
for i:=i to x do begin
while d<=sqrt(x) do begin
pom:= x mod d;
if pom=0 then v:=v+1;
d:=d+1;
end;
x:=x-1;
if v=1 then writeln(v, ' je prvocislo');
end;
readln;
end.
Comments: