Cho danh sách 1,2,3..100 hãy viết lệnh lặp để viết ra danh sách đó Giúp mình với mình cần gấp
2 câu trả lời
uses crt;
var i: byte;
begin
clrscr;
for i:=1 to 100 do
write (i,' ');
readln;
end.
uses crt;
var i: byte;
begin
clrscr;
for i:=1 to 100 do
write (i,' ');
readln;
end.
