Форум » Рекурсивные процедуры и функции » задание 16 №10 » Ответить
задание 16 №10
Valgruel: А ответ правильный? У меня этот ответ получается при F(1), а не при F(2) Решение на pascal [pre2] Program z10_fun; Var y:integer; function F( n: integer ): integer; begin If n>12 then Result := 2*n - 5; If n<=12 then Result := 2*F(n+2) + n -4; end; Begin y:=F(1); writeln( 'F(2)=',F(2), ' F(1)=',F(1)); End.[/pre2] ******************** Запуск: F(2)=1862 F(1)=1671
Ответов - 1
Поляков: Valgruel пишет: У меня этот ответ получается при F(1), а не при F(2) Там и требуется найти F(1).
полная версия страницы