👤

Sa se calculeze valoarea functiei utilizind recursia:

f:N -> N, f =[tex] \left \{ {{y=n-1,n<10} \atop {x=f(f(n+2)), n \geq 10}} \right. [/tex]
pentru argumentul dat n


Răspuns :

Program p1;
type Natural = 0..MaxInt;
var n:Natural;
function F(n:Natural):Natural; 
 begin  if n<10 then F:=n-1   
 else if n>=10 then F:=F(F(n+2)); 
end;
Begin
write('Introdu n:');readln(n);
writeln('Valoarea functiei este:',F(n));
readln;
End.