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.