Цитата:
Сообщение от vlad0off
Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии
|
Нужна, так нужна, что уж тут поделаешь... Вот:
Код:
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.