Задача 6 Урок 20
Primary tabs
Дано натуральное число N. Вычислите сумму его цифр.
(При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика. Используйте операцию получения остатка от деления, и операцию целочисленного деления).
program u20z6; var n:integer; function fun(n1:integer):integer; begin if (n1=1) then result:=1 else result:=n1+fun(n1-1); end; begin writeln('vvedite n'); readln(n); writeln(fun(n)); readln(); end.
- Log in to post comments
- 494 reads