Нарисовать три вертикальных квадрата 3 × 3 с помощью символа «*». (программа Паскаль)

Вопрос посетителя

Нарисовать три вертикальных квадрата 3 × 3 с помощью символа «*».

Ответ эксперта

program RISUNOK;
procedure KVADRAT;
begin
writeln (‘***’);
writeln (‘*  *’);
writeln (‘***’);
end;
begin
clrscr; KVADRAT;
writeln; KVADRAT;
writeln; KVADRAT;
end.

Скачать ответРаспечатать решение