Напишите программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество чётных натуральных чисел на отрезке [a, b] (включая концы отрезка). программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 30000. проверять входные данные на корректность не нужно. программа должна вывести одно число: количество чётных чисел на отрезке [a, b]. входные данные: 10 ; 20 выходные данные: 6
Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2;
var k:=(b-a) div 2;
if a.IsEven or b.IsEven then k+=1;
Writeln('На отрезке четных чисел ',k)
end.
Пример
143 1318
На отрезке четных чисел 588