Написать в тетради программу, в которой пользователь вводит целое 3-хзначное число, необходимо найти сумму его цифр

Question

Дрона

27 ноября, 17:24

+4

Ответы (1)

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

Элисса · Answer 1

Var s: integer;

begin

readln (s) ;

s: = (s div 100) + ((s div 10) mod 10) + (s mod 10) ;

writeln (s) ;

end.