Ввести целое число и найти сумму его цифр Пример: Введите целое число: 1234 Сумма цифр...

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.