Определите, что вычисляет предложенная рекурсивная функция: function f(x: integer): integer; begin if x = 0 then f := 0 else f := x mod 10 + f(x div 10); end; Вычисление суммы цифр числа. Вычисление суммы N элементов геометрической прогрессии. Перевод десятичного числа в x-ичную систему счисления. Вывод на экран всех простых множителей числа.
Задание

Определите, что вычисляет предложенная рекурсивная функция:

function f\(x: integer\): integer;
begin
if x = 0 then
f := 0
else
f := x mod 10 + f\(x div 10\);
end;

  • Вычисление суммы цифр числа.
  • Вычисление суммы N элементов геометрической прогрессии.
  • Перевод десятичного числа в x-ичную систему счисления.
  • Вывод на экран всех простых множителей числа.