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;

BẠn tham khảo trong ảnh !

Câu hỏi trong lớp Xem thêm