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?
2 câu trả lời
Program bai1;
uses crt;
var dem,n,i: integer;
begin
clrscr;
write('nhap n ='); readln(n);
dem:=0;
for i:= 1 to n do
if i mod 2 = 1 then
begin
write(i:3,',');
dem:= dem+1 ;
if dem mod 15 = 0 then writeln;
end;
readln;
end.
Phương trình :
uses crt;
var dem,n,i: integer;
clrscr;
write('nhap n ='); readln(n);
dem:=0;
for i:= 1 to n do
if i mod 2 = 1 then
write(i:3,',');
dem: = dem+1 ;
if dem mod 15 = 0 then writeln;
end;
readln;
end.
