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.