Question

Составить программу для вычисление суммы ТОЛЬКО ЧЕТНЫХ цифр числа

Answer 1

Ответ:

var x:string;

   y:longint;

begin

 readln(x);

 y:=0;

 for var a:=1 to length(x) do

   if (strtoint(x[a]))mod 2=0 then y+=strtoint(x[a]);

 writeln(y);

end.

cdf0ea6a82efdcbac7332ba3308e529a.pas