Question

Написать рекурсивную программу вывода на экран следующей картинки: 1111111111111111 (16 раз)
222222222222 (12 раз)
33333333 (8 раз)
4444 (4 раза)
33333333 (8 раз)
222222222222 (12 раз)
1111111111111111 (16 раз)

Answer 1

procedure p(k:integer);
var i:integer;
begin
for i:=1 to 20-4*k do write(k);
writeln
if k<4 then 
 begin
  p(k+1);
  for i:=1 to 20-4*k do write(k);
  writeln;
 end;
end;
begin
p(1);
end.

Результат:
1111111111111111
222222222222
33333333
4444
33333333
222222222222
1111111111111111