Дано натуральное число N. Напишите функцию (Pascal), вычисляющую сумму цифр числа N.
Входные данные
Задано единственное число N
Выходные данные
Необходимо вывести сумму цифр числа N.
Примеры
входные данные
12
выходные данные
3
ПРОГРАММА БЫЛА, НО ВВОДИЛ 12 И ВЫВОДИЛ ВМЕСТО 3, 0
Входные данные
Задано единственное число N
Выходные данные
Необходимо вывести сумму цифр числа N.
Примеры
входные данные
12
выходные данные
3
ПРОГРАММА БЫЛА, НО ВВОДИЛ 12 И ВЫВОДИЛ ВМЕСТО 3, 0
Answers & Comments
Verified answer
Program pro;var n,a,sym:integer;
begin
readln(n);
while n>0 do
begin
a:=n mod 10;
sym:=sym+a;
n:=n div 10;
end;
writeln(sym)
end.