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