viết chương trình in ra tất cả các số nguyên tố từ 2 đến n với n được nhập từ bàn phím
viết chương trình in ra tất cả các số nguyên tố từ 2 đến n với n được nhập từ bàn phím
By Eliza
By Eliza
viết chương trình in ra tất cả các số nguyên tố từ 2 đến n với n được nhập từ bàn phím
Var i, n: word;
Function isNt(x: word): boolean;
Var j: word;
Begin
For j:=2 to trunc(sqrt(x))
do if (x mod j =0)
Then exit(false);
Exit(true);
End;
Begin
Write(‘n = ‘); readln(n);
For i:=2 to n do if isNt(i)=true
Then write(i, ‘ ‘);
Readln
End.
program nguyen_to;
uses crt;
var n,i,d,j: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
write(‘Cac so nguyen to tu 2 den ‘,n,’: ‘);
for i:=2 to n do
begin
d:=0;
for j:=1 to i do
if i mod j=0 then d:=d+1;
if d=2 then write(i,’ ‘);
end;
readln
End.