Задача 6 Урок 20
Primary tabs
Дано натуральное число N. Вычислите сумму его цифр.
(При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика. Используйте операцию получения остатка от деления, и операцию целочисленного деления).
var N,s : integer; function Num(N,s: integer) : integer; begin s := s + N mod 10; N := N div 10; if (N > 0) then Num(N,s) else write(s); end; begin readln(N); s := 0; Num(N,s); readln; end.
- Log in to post comments
- 2066 reads
vedro-compota
Sun, 10/03/2021 - 12:44
Permalink
1) функция должна возвращать
1) функция должна возвращать сумму
2) решить с одним аргументом
_____________
матфак вгу и остальная классика =)
jl8qy9kd_pro
Fri, 10/08/2021 - 14:32
Permalink
RE
vedro-compota
Sun, 10/10/2021 - 13:00
Permalink
по аналогии с задачей http:/
по аналогии с задачей http://fkn.ktu10.com/?q=node/13389 можно использовать 1 аргумент в функции
_____________
матфак вгу и остальная классика =)
jl8qy9kd_pro
Sun, 10/17/2021 - 12:08
Permalink
RE
vedro-compota
Sun, 10/17/2021 - 12:42
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)