Bài 2 : Đồng Hồ Cát tùy chọn

CLICK VÀO ĐÂY ĐỂ DOWNLOAD

Nên Chọn bài 11l20102.pas

Hình bài 11l20102.pas HÌNH bị sai nhé !!!

(download thoải mái, đã sửa.)

Nó là thế này cơ :

var a, b: char;

BEGIN

        readln(a); readln(b);

        writeln(a,' ',a,' ',a,' ',a,' ',a,' ',a,' ',a,' ',a,' ',a); write('  ');

        writeln(a,' ',a,' ',a,' ',a,' ',a,' ',a,' ',a); write('    ');

        writeln(a,' ',a,' ',a,' ',a,' ',a); write('      ');

        writeln(a,' ',a,' ',a); write('        ');

        writeln(a); write('        ');

        writeln(b); write('      ');

        writeln(b,' ',b,' ',b); write('    ');

        writeln(b,' ',b,' ',b,' ',b,' ',b); write('  ');

        writeln(b,' ',b,' ',b,' ',b,' ',b,' ',b,' ',b);

        writeln(b,' ',b,' ',b,' ',b,' ',b,' ',b,' ',b,' ',b,' ',b);

        readln;

END.

link : https://www.dropbox.com/sh/hbr15gjm019h8j1/oKTJAh38fU/Bai%202