В17

Материал из Saratov FIO Wiki
Перейти к: навигация, поиск

Задание B 17

uses crt;

function F(x:integer):integer; begin if x=1 then f:=1

      else if ODD(x) then  F:=F(3*x+1)+1
           else F:=F(x div 2)+1;

end;

begin  clrscr;
write(' ',F(23));
writeln;
readkey;
 end.

Значение функции F(23) равно = 16