Вычислить значения заданной функции

@ZOTAC · Регистрация: 21.02.2013

Pascal

Function f(n:integer):integer;
begin
if n>100 then f:=n-10 else f:=f(f(n+11))
end;

Вычислить f(100), f(99) и f(85). Какие вообще значения принимает эта функция?
(Использовать рекурсию.)

@Puporev · 29.03.2013, 16:26

Сообщение от ZOTAC

(Использовать рекурсию.)

Так она уже использована в функции...

Pascal

uses crt;
Function f(n:integer):integer;
begin
if n>100 then f:=n-10 else f:=f(f(n+11))
end;
begin
writeln('100=',f(100));
writeln('99=',f(99));
writeln('85=',f(85))
end.

Опции темы