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

Ответ:

36

Объяснение:

program kol25;

var i,kol:integer;

begin

kol:=0;

for i:=10 to 100 do

if (i mod 2=0) and (i mod 5<>0) then kol:=kol+1;

writeln('Чисел, которые делятся на 2, но не делятся на 5: ',kol);

readln;

end.