[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.
Hơi dài:
Mã:
uses crt;
var i:byte;
begin
clrscr;
textcolor(12);
for i:=1 to 4 do write(' ');
for i:=1 to 5 do write('*');
for i:=1 to 5 do write(' ');
for i:=1 to 5 do write('*');
writeln;
{---------------------------}
for i:=1 to 3 do write(' ');
for i:=1 to 7 do write('*');
for i:=1 to 3 do write(' ');
for i:=1 to 7 do write('*');
writeln;
{---------------------------}
for i:=1 to 2 do write(' ');
for i:=1 to 9 do write('*');
write(' ');
for i:=1 to 9 do write('*');
writeln;
for i:=1 to 2 do write(' ');
for i:=1 to 19 do write('*');
writeln;
for i:=1 to 3 do write(' ');
for i:=1 to 17 do write('*');
writeln;
for i:=1 to 4 do write(' ');
for i:=1 to 15 do write('*');
writeln;
for i:=1 to 5 do write(' ');
for i:=1 to 13 do write('*');
writeln;
for i:=1 to 6 do write(' ');
for i:=1 to 11 do write('*');
writeln;
for i:=1 to 7 do write(' ');
for i:=1 to 9 do write('*');
writeln;
for i:=1 to 8 do write(' ');
for i:=1 to 7 do write('*');
writeln;
for i:=1 to 9 do write(' ');
for i:=1 to 5 do write('*');
writeln;
for i:=1 to 10 do write(' ');
for i:=1 to 3 do write('*');
writeln;
for i:=1 to 11 do write(' ');
write('*');
writeln;
readln
end.
Last edited:
