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