PROGRAM Tao_bang;
USES crt;
VAR
i: BYTE; {chi so cua hang}
j: BYTE; {chi so cua cot}
BEGIN
clrscr; {xoa man hinh}
FOR i:=0 TO 9 DO {viet theo tung hang}
BEGIN
FOR j:=0 TO 9 DO {viet theo tung cot tren moi hang}
write(10*i+j :4); {viet cac so ij ra man hinh}
writeln;
END; {xong hang thu i}
readln {dung chuong trinh xem ket qua}
END.
Download: http://www.mediafire.com/?0s1oobqu20wd9t2
USES crt;
VAR
i: BYTE; {chi so cua hang}
j: BYTE; {chi so cua cot}
BEGIN
clrscr; {xoa man hinh}
FOR i:=0 TO 9 DO {viet theo tung hang}
BEGIN
FOR j:=0 TO 9 DO {viet theo tung cot tren moi hang}
write(10*i+j :4); {viet cac so ij ra man hinh}
writeln;
END; {xong hang thu i}
readln {dung chuong trinh xem ket qua}
END.
Download: http://www.mediafire.com/?0s1oobqu20wd9t2