Составить программу для нахождения суммы чисел 4-х значного числа

Question

Составить программу для нахождения суммы чисел 4-х значного числа

Answer 1

Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.