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
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
By aikhanh
By 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.