MN OWII GIÚP VỚI !!! Viết chương trình in ra các số chẵn từ 1 đến 100. gấp lắm ạ 24/07/2021 Bởi Serenity MN OWII GIÚP VỚI !!! Viết chương trình in ra các số chẵn từ 1 đến 100. gấp lắm ạ
program sochan; uses crt; var i:byte; begin clrscr; write(‘Cac so chan tu 1 -> 100 la: ‘); for i:=1 to 100 do if i mod 2=0 then write(i,’ ‘); readln end. Bình luận
đây bạn
program sochan;
uses crt;
var i:byte;
begin
clrscr;
write(‘Cac so chan tu 1 -> 100 la: ‘);
for i:=1 to 100 do if i mod 2=0 then write(i,’ ‘);
readln
end.