Просмотр задания
Здравствуйте! Не могу точно определить, где я сделал ошибку. После выполнения рекурсивных функций нужно найти сумму всех выведенных чисел на экране. У меня вышло 5+9+5+4+5=28, но в ответах указано 16.

procedure F(n: integer); forward;
procedure G(n: integer); forward;

procedure F(n: integer);
begin
writeln (n mod 2);
if n mod 2 =0 then F(n div 2)
else G((n-1)div 2);
end;

procedure G(n: integer);
begin
writeln(n);
if n>0 then F(n);
end;


Заранее спасибо!
Илья - https://vk.com/keveterete
10 июня 2018
Ответы (0)

Нет ответов, ваш ответ будет первым

Перевести число из в Результат: 510 = 1012