KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
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.
program gan_nguyen_to;
Uses crt;
var n,i:integer;
function ktgnt(k:integer):boolean;
var j,d:integer;
begin
d:=0;
for j:=2 to trunc(sqrt(k)) do
begin
if k mod j=0 then d:=d+1;
if d=2 then break;
end;
if d=1 then ktgnt:=true else ktgnt:=false;
end;
BEGIN
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=2 to n do
if ktgnt(i) then write(i,’ ‘);
readln;
end.
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.