Kod: Zaznacz cały
program liczby_pierwsze;
uses crt;
var i,p,s,b:longint;
a:array[1..500] of real;
liczby:text;
begin
s:=0;
clrscr;
assign(liczby, 'C:\liczby.txt');
reset(liczby);
for i:=1 to 500 do
begin
read(liczby,b);
a[i]:=sqrt(b);
end;
for i:= 1 to 500 do
begin
for p:=2 to a[i]-1 do
begin
if not a[i] mod p=0 then begin
writeln(a[i]);
end;
end;
readkey;
end;
end.