с клавиатуры вводятся N произвольных натуральных чисел. найти сумму тех из них в составе которых отсутствуют нечетные цифры

1

Ответы и объяснения

2013-04-15T12:45:02+00:00

var

  tmp, sum, i, n : integer;

 

function f (n : integer) : boolean;

begin

  f := false;

  while n > 0 do

    if (n mod 10) mod 2 = 1 then exit

    else n := n div 10;

  f := true;

end;

 

begin

  read (n);

  for i := 1 to n do

  begin

    read (tmp);

    if f (tmp) then sum := sum + tmp;

  end;

  writeln (sum);

end.