Форум » Рекурсивные процедуры и функции » задание 16 задача 84 » Ответить
задание 16 задача 84
Vin: [pre2] var i, k , m, c:integer; function F(n:integer):integer; begin if n<2 then F:=n else if (n>=2) and (n mod 2=0) then F:=F(n div 2)+1 else if (n>=2) and (n mod 2>0) then F:=(3*n+1)+1; end; begin for i:=1 to 100 do begin k:=f(i); if k>100 then c:=c+1; end; writeln(c); end.[/pre2] выдает 43, в ответе 15, что не так?
Ответов - 1
Поляков: Vin пишет: if (n>=2) and (n mod 2>0) then F:=F(3*n+1)+1;
полная версия страницы