Ввести целое число и найти сумму его цифр пример: - вопрос №12314312 от vysocskij1961 26.05.2023 09:40

Question

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

vysocskij1961 · 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....