Viết các số từ 0 .. 99 trên màn hình theo cách sau: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ... 90 91 92 93 94 95 96 97 98 99 giúp mik vssssssss
2 câu trả lời
uses crt; {khai bao' thu vien crt}
var n,i,dem:integer;
BEGIN
clrscr;{ cau lenh xoa man hinh};
//dem:=0;
for i:=1 to 99 do
begin
begin
write(i:4);
dem:=dem+1;
end;
if dem=9 then
begin
dem:=0;
writeln;{in duoc 15 so thi xuong dong};
end;
end;
Câu hỏi trong lớp
Xem thêm