Question

Паскаль Входные данные Вводятся целые числа a и b. Гарантируется, что a не превосходит b Выходные данные Выведите (через пробел) все четные числа от a до b (включительно). Примеры 2 5 выходные данные 2 4

Answer 1

Ответ:

program z1;

var a,b,i: integer;

begin

readln(a);

readln(b);

for i:=a to b do if i mod 2 =0 then write(i,' ')

end.

Answer 2

Программа на языке Паскаль для решения данной задачи будет выглядеть следующим образом:

pascalCopy code
program EvenNumbers;
var
  a, b, i: integer;
begin
  readln(a, b);

  for i := a to b do
  begin
    if i mod 2 = 0 then
      write(i, ' ');
  end;
end.

При запуске программы пользователю будет предложено ввести значения a и b, разделенные пробелом. Затем, с помощью цикла for, программа будет перебирать все числа от a до b и проверять, является ли текущее число четным (i mod 2 = 0). Если число является четным, оно будет выведено на экран с помощью write.

Пример входных данных:

Copy code
2 5

Пример выходных данных:

Copy code
2 4