Технический форум - Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии

Условие указано на скриншоте ниже:
Вложение 138336

Цитата:

Сообщение от vlad0off (Сообщение 914925)

Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии

Нужна, так нужна, что уж тут поделаешь... Вот:

Код:

Var

 n:Word;



Function An(k:Word):Word;

begin

 if (k=1) or (k=2) then An:=1 else

 if (k mod 2)=0 then An:=(k div 2) else

 An:=An(k div 2)+An((k div 2)+1);

end;



Begin

 Write('n= ');

 Readln(n);

 Write(An(n));

 Readln

End.