Если нужно посчитать количество чётных чисел на отрезке 1..100, ответ очевиден: 50 (чётные — это 2, 4, 6, …, 100, ровно 100/2 штук). Ниже три варианта программы на PascalABC.NET.

1) Простейший подсчёт в цикле с шагом 2

pascal
Копировать код
begin
  var cnt := 0;
  for var i := 2 to 100 step 2 do
    cnt += 1;
  println(cnt);  // выведет 50
end.

2) Подсчёт через проверку чётности

pascal
Копировать код
begin
  var cnt := 0;
  for var i := 1 to 100 do
    if i mod 2 = 0 then
      cnt += 1;
  println(cnt);  // 50
end.

3) Без циклов — математически

pascal
Копировать код
begin
  var a := 1;
  var b := 100;
  var cnt := b div 2 - (a - 1) div 2; // количество чётных на [a..b]
  println(cnt);  // 50
end.

Во всех случаях программа выведет 50. Первый вариант самый быстрый и наглядный для именно чётных чисел; третий — универсальная формула для любого диапазона.