Напишите программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество чётных натуральных чисел на отрезке [a, b] (включая концы отрезка). программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 30000. проверять входные данные на корректность не нужно. программа должна вывести одно число: количество чётных чисел на отрезке [a, b]. входные данные: 10 ; 20 выходные данные: 6

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

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

Привет! Давай я помогу тебе написать программу, которая будет подсчитывать количество чётных чисел на отрезке [a, b].

Сначала нам нужно объявить две переменные a и b и прочитать значения этих переменных со входа.

Теперь нам нужно создать переменную count и инициализировать её нулём. Эта переменная будет считать количество чётных чисел на отрезке.

Затем мы будем использовать цикл для перебора всех чисел от a до b. В каждой итерации цикла мы будем проверять, является ли текущее число чётным. Если да, то мы увеличиваем переменную count на единицу.

Когда цикл заканчивается, у нас будет количество чётных чисел на отрезке [a, b] в переменной count. Мы можем вывести это число на экран.

Вот код программы на языке Python, который делает то, что мы описали выше:

```python
a = int(input("Введите число а: "))
b = int(input("Введите число b: "))

count = 0

for i in range(a, b+1):
if i % 2 == 0:
count += 1

print("Количество чётных чисел на отрезке [a, b]:", count)
```

Таким образом, если введешь числа 10 и 20, программа выведет число 6, что означает, что на отрезке [10, 20] содержится 6 чётных чисел.

Надеюсь, эта программа понятна для тебя! Если есть ещё вопросы, не стесняйся задавать!