Question

Вывести на экран все четные числа из отрезка от a до b, при этом границы отрезка заведомо правильно вводятся с клавиатуры. Паскаль, цикл while

Answer 1

Var
  a,b:integer;
begin
  Write('Введите a и b: '); Read(a,b);
  if a mod 2<>0 then inc(a);
  while a<=b do begin
    Write(a,' ');
    a:=a+2
    end
end.

Пример
Введите a и b: -7 11
-6 -4 -2 0 2 4 6 8 10

Answer 2

Program n1;
var a,b: integer;
begin
readln(a,b);
if a mod 2<>0 then a:=a+1;
while a<=b do
begin
write(a,' ');
a:=a+2;
end;
end.

Answer 3

Для решения этой задачи в Паскале можно использовать цикл while. Ниже приведен пример программы, которая выводит на экран все четные числа из отрезка от a до b:

program EvenNumbers;

var
  a, b, i: integer;

begin
  write('Введите начало отрезка a: ');
  readln(a);
  write('Введите конец отрезка b: ');
  readln(b);
  
  writeln('Четные числа из отрезка от ', a, ' до ', b, ':');
  
  i := a;
  while i <= b do
  begin
    if i mod 2 = 0 then
      writeln(i);
    i := i + 1;
  end;
end.

При запуске этой программы сначала пользователю будет предложено ввести начало отрезка a и конец отрезка b. Затем программа будет выводить все четные числа из этого отрезка, используя цикл while для перебора чисел от a до b и проверки на четность.

Answer 4

Программа на языке Pascal для вывода на экран всех четных чисел из отрезка от a до b:

program EvenNumbers;
var
  a, b, i: integer;
begin
  writeln('Введите начало отрезка a: ');
  readln(a);
  writeln('Введите конец отрезка b: ');
  readln(b);
  
  writeln('Все четные числа из отрезка от ', a, ' до ', b, ':');
  i := a;
  while i <= b do
  begin
    if i mod 2 = 0 then
      writeln(i);
    i := i + 1;
  end;
end.

Пользователю предлагается ввести начало отрезка a и конец отрезка b с клавиатуры. Затем программа выводит все четные числа из этого отрезка, используя цикл while для проверки каждого числа на четность.