Задание

Определите целое число, численно равное количеству выводимых на печать звездочек при вызове процедуры F и передаче в нее параметра n=5:
procedure F\(n: integer\); forward;
procedure G\(n: integer\); forward;
procedure F\(n: integer\);
begin
if n > 0 then
G\(n \- 1\);
end;
procedure G\(n: integer\);
begin
write\('\*'\);
if n > 1 then
F\(n \- 2\);
end;
begin
F\(5\);
end.

  • 2