KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
viết chương trình in ra màn hình các số nguyên tố từ 1 đến 30
By Parker
viết chương trình in ra màn hình các số nguyên tố từ 1 đến 30
uses crt; var i:longint; {—Chuong-trinh-con—} function nt(i:longint):boolean; var j:longint; begin j:=2; nt:=true; while i mod j<>0 do inc(j); if j<>i then nt:=false; end; {—Chuong-trinh-chinh—} begin clrscr; for i:=2 to 30 do if nt(i) then write(i,’ ‘); writeln; readln end.
uses crt;
var i:longint;
{—Chuong-trinh-con—}
function nt(i:longint):boolean;
var j:longint;
begin
j:=2; nt:=true;
while i mod j<>0 do inc(j);
if j<>i then nt:=false;
end;
{—Chuong-trinh-chinh—}
begin
clrscr;
for i:=2 to 30 do
if nt(i) then write(i,’ ‘); writeln;
readln
end.
program nguyento;
uses crt;
var i,j,d:integer;
begin
clrscr;
for i:=2 to 30 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.