var a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: '); readln(a); // вводим число (можно больше трех знаков) while a < > 0 do // пока остались цифры в числе begin s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме a : = a div 10; // стираем последнюю цифру числа end; writeln('сумма цифр = ', s) // выводим результатend.
Популярные вопросы