Серапион
6 год назад
Дана трех значное число найти сумму её цифр
ОТВЕТЫ
Станимир
Oct 24, 2020
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn('Сумма его цифр равна: ',(A div 100)+((A div 10) mod 10 )+(A mod 10));
End.
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn('Сумма его цифр равна: ',(A div 100)+((A div 10) mod 10 )+(A mod 10));
End.
204
Смежные вопросы:
