Question

Составьте программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа . например , для числа 128 сумма цифр 11, для числа 34 сумма цифр 12

Answer 1

Var
a,s:integer;
begin
readln(a);
s:=(a div 100) + ((a div 10) mod 10) + (a mod 10);
writeln(s);
end.