In ra các số nguyên tố nhỏ hơn n (n <= 10^7) theo định lý nhỏ femat (code gì cũng được nha)
2 câu trả lời
Program Nguyen_to_1;
uses crt;
var n, i, j: integer;
ok: boolean;
begin
clrscr;
write('Nhap n: '); readln(n);
for i := 2 to n do
begin
ok:=true;
for j:= 2 to i - 1 do if i mod j = 0 then
ok :=false;
if ok then write(i,';')
end;
readln
end.
uses crt;
var n, i, j: integer;
ngto: boolean;
begin
clrscr;
write('Nhap n: '); readln(n);
for i := 2 to n do
begin
ngto:=true;
for j:= 2 to i - 1 do if i mod j = 0 then
ngto:=false;
if ngto then write(i,';')
end;
readln
end.
