Question

помогите пожалуйста.очень надо.должок уже ​

Answer 1

uses math;

var

_counter, _sum, x : integer;

begin

readln(x);

x := abs(x);

while x > 0 do

   begin

   if (x mod 10) mod 2 = 0 then

       begin

       _sum := _sum + x mod 10;

       _counter := _counter + 1;

       end;

   

   x := x div 10;

   end;

writeln('Количество чётных цифр:', _counter);

writeln('Сумма чётных цифр: ', _sum);

end.