Составить программу для нахождения суммы четных цифр в числе

Question

Составить программу для нахождения суммы четных цифр в числе

Answer 1

ПЕР
  число, сумма, цифра: ЦЕЛ;

УКАЗ
  сумма := 0;
  ПОКА число > 0 ВЫП
    цифра := число ОСТАТОК 10;
    ЕСЛИ ЧЕТ(цифра) ТО УВЕЛИЧИТЬ(сумма, цифра) КОН
    число := число ДЕЛИТЬ 10
  КОН