ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число, сумма, количество, цифра: ЦЕЛ;
УКАЗ
число := Приём.Число();
количество := 0; сумма := 0;
ПОКА число > 0 ВЫП
цифра := число ОСТАТОК 10;
ЕСЛИ ЧЕТ(цифра) ТО
УВЕЛИЧИТЬ(сумма, цифра); УВЕЛИЧИТЬ(количество)
КОН;
число := число ДЕЛИТЬ 10
КОН;
Вывод.ЧЦел("^%d %d", количество, сумма, 0, 0)
КОН Задание.