Найти сумму чётных цифр числа) Помогите пожалуйста) Решить в паскале. Буду очень благодарна)

Question

Найти сумму чётных цифр числа) Помогите пожалуйста) Решить в паскале. Буду очень благодарна)

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var s:integer; a,n:longint; begin write ('A =');readln(a); if (a div 10 = 0) and (odd(a)=false) then s:=a else begin n:=a; while n div 10 <> 0 do begin n:=a; if odd(a mod 10)=false then s:=s+a mod 10; a:=a div 10; end; end; writeln (s); readln; end.