Задача №8936 Четные на промежутке

Выведите все целые четные числа, принадлежащие интервалу [a, b] в убывающем порядке.

Входные данные

Два целых числа a и b (a < b).

Выходные данные

Выведите в одной строке все четные целые числа из интервала [a, b] в убывающем порядке.

Решение

var a, b:int64;
begin
  read(a, b);
  if b mod 2 > 0 then
    b := b - 1;
  while (b >= a) do
  begin
    write(b, ' ');
    b := b - 2;
  end;
end.