Hãy sử dụng lệnh For...do để viết chương trình in ra màn hình các số thứ tự từ 1 đến 20 trên mỗi dòng
2 câu trả lời
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 20 do write(i,' ');
readln
end.
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 20 do write(i,' ');
readln
end.