Написать рекурсивную программу вывода на экран следующей картинки: 1111111111111111 (16 раз)
222222222222 (12 раз)
33333333 (8 раз)
4444 (4 раза)
33333333 (8 раз)
222222222222 (12 раз)
1111111111111111 (16 раз)
222222222222 (12 раз)
33333333 (8 раз)
4444 (4 раза)
33333333 (8 раз)
222222222222 (12 раз)
1111111111111111 (16 раз)
Answers & Comments
Verified answer
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