метод ВычислитьСуммуЦифр(Число: Число): Число
если Число < 0
выбросить новый ИсключениеНедопустимыйАргумент("Укажите целое положительное число.")
;
пер Сумма = 0
пока Число > 0
Сумма += Число % 10
Число = (Число / 10).ЦелаяЧасть()
;
возв рат Сумма
;
метод ВыполнитьВычисления()
ВычислитьСуммуЦифр(12345)
ВычислитьСуммуЦифр(7590)
ВычислитьСуммуЦифр(0)
ВычислитьСуммуЦифр(-100)
;