Tin học Free pascal

[LongCulii]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Ai chỉ mình viết chương trình in ra bảng số như này với:
0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29

Cứ mỗi lần mình xài gotoXY là chỉ ra 3 số 9 19 29 thôi, còn không xài thì ra đủ số nhưng lại chạy theo 1 hàng dọc ạ.

 

[Code11]

var i,dem:integer;
begin
for i:=0 to 29 do begin
write(i,' ');dem:=dem+1;
if (dem =10) or (dem=20) or (dem=30) then writeln('');
end;
readln;
end.