uses crt;
var n,i: longint; xh: boolean;
function KT(n: longint):boolean;
var i: longint;
begin
if ((n = 0) and (n = 1)) then exit(false);
for i:=2 to trunc(sqrt(n)) do
if (n mod i = 0) then exit(false);
exit(true);
end;
begin
clrscr;
write('Nhap so n: ');
readln(n);
write('Cac so gan nguyen to la: ');
i:=1; xh:=false;
while (i*i <= n) do
begin
if (KT(i)) then
begin
write(i*i,' ');
xh:=true;
end;
inc(i);
end;
if (xh=false) then write('Khong co so nao la so gan nguyen to.');
readln;
end.
Với cái thuật toán này chấp lên 1 tỉ cũng được nữa, hihi.
