Написать программу для вычисления суммы цифр четырехзначного числа

Question

Написать программу для вычисления суммы цифр четырехзначного числа

Answer 1

var a:integer;

Begin

readln(a);

Writeln(a mod 10 + a div 10 mod 10 + a div 10 div 10 mod 10 + a div 1000);

end.