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