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

106 , 116 , 124 , 136 , 142 , 156,  160,  161,  163,  165,  167 , 169,  176,  196

Объяснение:

Написал программу, которая всё посчитала:

var i,sum,a:integer;

begin

for i:=100 to 200 do

 begin

   a:=i;

   sum:=0;

   while a > 0 do

     begin

       if (a mod 10) mod 2 = 0 then

         sum:=sum+a mod 10;

       a:=a div 10;

     end;

   if sum mod 7 = 6 then writeln(i);

 end;

end.