Запишите подряд без пробелов и разделителей все числа, которые будут напечатаны на экране при выполнении вызова F(6). Числа должны быть записаны в том же порядке, в котором они выводятся на экран.

procedure F(n: integer); forward;
procedure G(n: integer); forward;
procedure F(n: integer);
begin
n := n - 1;
if n > 2 then
begin
write(n);
F(n - 1);
G(n - 2);
end
else
write(n+2);
end;
procedure G(n: integer);
begin
write(n);
if n > 2 then
begin
n := n - 1;
G(n - 1);
F(n - 2);
end
else
write(n+1);
end;

slavasolyanin    1   19.04.2020 18:18    4