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

Question

Информатика

Сильвия

29 июня, 15:39

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

+3

Ответы (1)

Знаете ответ на вопрос?

Олдама · Answer 1

Var

A:integer;

Begin

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

ReadLn (A) ;

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

End.