viết chương trình in ra màn hình các số chắn từ 1 đến 20 gấp ạ
2 câu trả lời
uses crt;
var i:integer;
begin
clrscr;
write('Cac so le tu 1 den 20 la: ');
writeln; {cách cho đẹp}
for i:=1 to 20 do
if i mod 2 = 0 then write(i:6);
readln
End.
uses crt;
var i:integer;
begin
clrscr;
writeln ('Cac so chan tu 1 den 20 la:');
for i:=1 to 20 do
if i mod 2 = 0 then write (i,' ');
readln;
end.
Câu hỏi trong lớp
Xem thêm