Umístnení souboru www.TrSek.com/zadania/prvocislo3.pas{ PRVOCISLO3.PAS Copyright (c) Pheo }
{ Program vypise prvych N overenych prvocisel. }
{ }
{ Datum:24.04.2003 http://www.trsek.com }
program prvocisla;
uses crt;
var n,x,p:integer;
{ funkcia zisti ci cislo je prvocislo }
function prvocislo(x:integer):boolean;
var s:real;
d:integer;
begin
prvocislo:=false;
s:=sqrt(x);
d:=1;
repeat
d:=d+1;
until (x mod d=0) or (d>=s);
if x mod d<>0 then prvocislo:=true;
end;
begin
clrscr;
write('Kolko prvocisel mam vypisat ? : ');
read(n);
write('2, ');
p:=1;
x:=1;
repeat
x:=x+1;
if prvocislo(x) then
begin
p:=p+1;
write(x,', ');
end;
until p=n;