Числа от 10 до 100 сколько чисел делятся на 2, но не делятся на 5?напишите решение на...

Question

Числа от 10 до 100 сколько чисел делятся на 2, но не делятся на 5?напишите решение на языке PASCAL​

Answer 1

var i,c:Integer;

begin

   c := 0;

   for i:=10 to 100 do

       if (i mod 2 = 0) and not (i mod 5 = 0) then

           c := c + 1;

   writeln(c);

end.