Алексей Хвостовский
Мудрец
(18112)
5 лет назад
//Pascal
var n: longint;
function SumOfDigits(n: longint): integer;
begin
var sum: integer;
while n > 0 do begin
sum += n mod 10;
n := n div 10;
end;
Result := sum;
end;
begin
n := 103406;
write(SumOfDigits(n));
end.
Входные данные:
Задано единственное число N
Выходные данные:
Необходимо вывести сумму цифр числа N.
Примеры:
входные данные:
12
выходные данные:
3