Задание

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

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

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