Ответы на вопрос:
Function f(n: integer): integer; var i, sum: integer; begin writeln('f(', n,')'); sum : = 1; for i : = 2 to n - 2 do begin if i * i mod n > n div 2 then sum : = sum + f(i) + i end; f : = sum; end; begin writeln(f(15)); end. при запуске выдало: f(15) f(3) f(5) f(2) f(3) f(10) f(3) f(4) f(6) f(2) f(4) f(7) f(2) f(5) f(2) f(3) f(12) f(3) f(9) f(4) f(5) f(2) f(3) 122 посчитав строчки получаем 23 раза вызвалась функция)
Популярно: Информатика
-
этофиаскобратан423.12.2022 18:08
-
Matvey167801.05.2020 19:44
-
Вsеzнaйkа09.06.2020 22:28
-
1232354365404.11.2021 05:30
-
lilli39320.07.2022 09:18
-
ArT00311.12.2021 16:08
-
Котосоловей29.03.2022 22:53
-
999876524.11.2020 23:38
-
Papyas311.08.2022 13:45
-
адамиммими130.06.2020 03:53