PROGRAM CT42;
USES crt;
VAR i, j: BYTE;
BEGIN
Writeln('Chuong trinh tao bang gom 2 lenh For ... do long vao nhau '); Writeln;
FOR i:=0 TO 9 DO BEGIN
FOR j:=0 TO 9 DO Write(10*i+j:3);
Writeln; END;
Readln
END.
Download: http://www.mediafire.com/?w8wgbd9ge94baaf
USES crt;
VAR i, j: BYTE;
BEGIN
Writeln('Chuong trinh tao bang gom 2 lenh For ... do long vao nhau '); Writeln;
FOR i:=0 TO 9 DO BEGIN
FOR j:=0 TO 9 DO Write(10*i+j:3);
Writeln; END;
Readln
END.
Download: http://www.mediafire.com/?w8wgbd9ge94baaf