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

vlad0off · 05.06.2013, 23:33

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

Vladimir_S · 06.06.2013, 10:24

Цитата:

Сообщение от 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.

05.06.2013, 23:33	#1 (permalink)
vlad0off Новичок Регистрация: 05.06.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии Условие указано на скриншоте ниже:

05.06.2013, 23:33
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пожалуйста, пробежитесь глазами по схожим темам Нужна помощь в решении Нужна помощь в решении задачи Нужна помощь в решении задачи Pascal

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070