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 26/07/2021 Bởi aikhanh 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
For:= 1 to 100 do ;
uses crt;
var i: byte;
begin
clrscr;
for i:=1 to 100 do
write (i,’ ‘);
readln;
end.