Viết chương trình tìm các số nguyên tố từ 1..n (n: nguyên dương)
2 câu trả lời
program baigiai;
uses crt;
var i,n,j:longint;
function NT(a:longint):boolean;
var dem:longint;
begin
dem:=0;
for j:=1 to a do if(a mod j= 0)then inc(dem);
NT:=dem=2;
end;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do if(NT(i)=true)then write(i,' ');
readln;
end.
đây nhé bạn cho mình xin ctlhn ạ
function nto(n:longint):boolean;
var i:longint;
begin
if n < 2 then exit(false);
for i := 2 to trunc(sqrt(n)) do
if n mod i = 0 then exit(false);
exit(true);
end;
var i,n:longint;
begin
readln(n);
write('Cac so nguyen to: ');
for i := 1 to n do
if nto(i) then write(i,' ');
readln;
end.
