Cho 1 số n tìm các số nguyên tố nhỏ hơn n (Làm theo cách tối giản nhất có thể
2 câu trả lời
program ngto;
uses crt;
var n:integer;
{---chuong-trinh-con---}
function ktnt(k:integer):boolean;
var r:integer;
begin
ktnt:=false;
for r:=2 to trunc(sqrt(k)) do
if k mod r=0 then exit;
ktnt:=true;
end;
{---chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap n: '); readln(n);
if n<=2 then write('Khong co')
else
begin
n:=n-1;
while ktnt(n)=false then n:=n-1;
write(n);
end;
readln;
end.
Program Nguyen_to;
Var n,i:integer;
Function NT(n:integer):Boolean;
Var ok: Boolean;
i: integer;
Begin
ok:=true;
for i:=2 to n-1 do
if (n mod i)= 0 then ok:=ok and false;
if n < 2 then NT:=false else NT:=ok;
End;
Begin
Write('Nhap n: ');Readln(n);
i:=n;
Repeat i:=i+1;
Until NT(i);
Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);
Readln
End.
Câu hỏi trong lớp
Xem thêm
