Дано трехзначное число. Найдите сумму его цифр. Входные данные Вводится целое...

Question

Дано трехзначное число. Найдите сумму его цифр.
Входные данные
Вводится целое положительное число. Гарантируется, что оно соответствует условию задачи.
Выходные данные
Выведите ответ на задачу.

(Примеры:входные данные-179,выходные данные-17) Решить в ПАСКАЛЕ

Answer 1

Var a,s:integer;
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
end.