Помогите с решением пожалуйста (задача в файле)

Question

Помогите с решением пожалуйста (задача в файле)

---

Answer 1

На паскале.
var i,a,b,c:longint;
begin
readln(a);
readln(b);
c:=0;
for i:=a to b do
if i mod 2=0 then
c:=c+1;
writeln(c);
end.