Question

Ввести целое число и найти сумму его цифр
Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10
Решите через паскаль

Answer 1

Var

a, Summ:integer;

begin

write ('Введите число ');

readln (a);

Summ : = 0;

while a > 0 do

begin

Summ : = Summ + a mod 10;

a : = a div 10;

end;

writeln ('Сумма цифр равна ', Summ);

end.