Ввести целое число и найти сумму его цифр пример: - вопрос №31391212 от Стариат 09.05.2022 18:37

Question

Информатика: Ввести целое число и найти сумму его цифр пример: введите целое число: 1234 сумма цифр числа 1234 равна 10 решите через паскаль

Стариат · Answer

Var a, Summ:integer; begin write ( Введите число ); readln (a); Summ : = 0; while a 0 do begin Summ : = Summ + a mod 10; a : = a div 10; end; writeln ( Сумма цифр равна , Summ); end....