очень очень простая программа на паскале

Question

очень очень простая программа на паскале

NikHakerLabs Ученик (23), закрыт 9 лет назад

напишите программу, которая по двум данным натуральным числам а и б, не превосходящих 30000 подсчитывает колво четных чесел на отрезке [а; б] (включая концы отрезка). программа получает на вход 2 натуральных числа а и б, при этом гарантируется, что 1<=a<=b<=30000. проверять входные данные на корректность не нужно. программа должна вывести одно число: количество четныых чисел на отрезке а; б.
Занимаюсь с++, секунду делов делать, просто паскаль подзабыл.

Answer 1

var
a,b,i,count:integer;
begin
readln(a,b);
count:=0;
for i:=a to b do if ((i mod 2) = 0) then count:=count+1;
writeln(count);
end.

Answer 2

Ivantrs Искусственный Интеллект (231353) 9 лет назад

(b-a)/2

NikHakerLabsУченик (23) 9 лет назад

нужна полная программа.

Answer 3

var a,b:integer;
begin
write('a b: '); readln(a,b); writeln(1+(b-b mod 2-a)div 2); readln
end.