Напишите программу, которая выводит сумму цифр числа 123

Question

Напишите программу, которая выводит сумму цифр числа 123

Comments

Там нужно как-то использовать div и mod

Answer 1

Var A : Integer;
Begin
  A:=123;
  Writeln(A div 100+A div 10 mod 10+A mod 10);
end.