Прошу Помочь «A»: Ввести натуральное число и найти сумму его цифр. Пример: Введите...

Question

Прошу Помочь
«A»: Ввести натуральное число и найти сумму его цифр.
Пример:
Введите натуральное число:
12345
Сумма цифр 15.

Answer 1

Program Y;
uses crt;
var
a, Sum:integer;
begin 
writeln('Введите число '); 
readln(a); 
Sum := 0; 
while a > 0 do  begin   
Sum := Sum + a mod 10;   
a := a div 10; 
end; 
writeln('Сумма цифр равна ', Sum);
End.