Здесь, как говорится, возможна масса разных вариантов. Один из самых простых такой: var i,j: integer; begin for j:=1 to 5 do begin for i:=1 to 8 do write('* '); writeln; for i:=1 to 8 do write(' *'); writeln; end; end. Если не подойдет - уточняйте требования к программе.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку