Question

Укажите количество целых чисел в диапазоне от 20o до 300 (включительно), таких, что остаток от деления суммы четных цифр числа на 8 равен 6.

Answer 1

Program zad;

var  

   n: longint;

   sum: integer;

begin

   readln(n);    

   sum := 0;

   while n > 0 do begin

       if n mod 10 mod 2 = 0 then

           sum := sum + n mod 10;

       n := n div 10;

   end;    

   writeln(sum);

end.