Ответ: Program Y;uses crt;vara, Sum:integer;begin writeln(‘Введите число ‘); readln(a); Sum := 0; while a > 0 do begin Sum := Sum + a mod 10; a := a div 10; end; writeln(‘Сумма цифр равна ‘, Sum);End.
Прошу Помочь
«A»: Ввести натуральное число и найти сумму его цифр.
Пример:
Введите натуральное число:
12345
Сумма цифр 15. — Правильный ответ на вопрос найдете ниже
11.11.2019 · 1