Дана трех значное число найти сумму её цифр

Question

Информатика

Николаич

30 июля, 13:55

Дана трех значное число найти сумму её цифр

+3

Ответы (1)

Знаете ответ?

Панюта · Answer 1

Var

A:integer;

Begin

WriteLn ('Введите трёхзначное число') ;

ReadLn (A) ;

WriteLn ('Сумма его цифр равна: ', (A div 100) + ((A div 10) mod 10) + (A mod 10)) ;

End.