Question

Viết chương trình in ra tất cả các số nguyên tố bé hơn hoặc bằng n?

Answer 1

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.