Ответ:

Програма

Program Syma_parn_chifr;

User Сrt;

Var

n, c, х, sym : integer;

Begin

ClrScr;

Writeln (‘n=> ');

Readln (n);

х : = n ;

sym : = 0;

While х <> 0 do

begin

c : = х mod 10;

if c mod 2=0

then sym : = sym + c;

х : = х div 10;

end;

Writeln (‘sym= ', sym);

Readkey;

End.

Объяснение:

алг Сума_парн_цифр (ціл n, ціл sym)

арг n

рез sym

поч

ціл х, c

х : = n {х - копія числа}

sym : = 0 {початкове значення суми парних цифр}

поки х<> 0 {поки число не перетворилось в 0}

пц

c : = m mod 10 {знаходимо цифру}

якщо c mod 2 =0 {цифра парна}

то sym:= sym +c {додаємо її до попереднього значення суми}

все

х : = х div 10 {відкидаємо останню цифру}

кінець