Урок 21 Задача 7
Primary tabs
Дано натуральное число N. Вычислите сумму его цифр.
(При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика. Используйте операцию получения остатка от деления, и операцию целочисленного деления).
function summa(a, n: integer): integer; begin if n = 0 then result:= a else result:= summa(a + n mod 10, n div 10); end; begin writeln(summa(0, 501100)); // передаем начальное значение суммы цифр и само число readln(); end.
- Log in to post comments
- 368 reads