Question

Помогите Turbo Pascal Пожалуйста

Answer 1

uses Crt;

function F(n:integer):integer;
begin
  if n>100 then F:=n-10
  else F:=F(F(n+4))
end;

var
  n:integer;

begin
  ClrScr;
  Read(n); Writeln(F(n));
  ReadKey
end.

Замечание: эта функция при n<100 "сваливается" в бесконечную рекурсию до исчерпания размера программного стека.