Question

1. Вывести все четные числа начиная с числа N до числа M. Числа N и M задает пользователь. Напишите программу Паскале, пожалуйста.

Answer 1

Program n_1;

var n, m, i:integer;

begin

   read (n, m);

   for i:=n to m do if i mod 2 = 0 then write(i, ' ');

end.

Answer 2

Программа на языке Паскаль для вывода всех четных чисел от числа N до числа M

program EvenNumbers;

var
  N, M, i: integer;

begin
  writeln('Введите число N:');
  readln(N);
  
  writeln('Введите число M:');
  readln(M);
  
  writeln('Четные числа от ', N, ' до ', M, ':');
  
  if N mod 2 <> 0 then
    N := N + 1;
  
  for i := N to M step 2 do
    writeln(i);
end.

Объяснение программы

1. Программа начинается с объявления переменных `N`, `M` и `i`, которые будут использоваться в программе. 2. Затем программа запрашивает у пользователя ввод числа `N` с помощью `readln(N)`. 3. Далее программа запрашивает у пользователя ввод числа `M` с помощью `readln(M)`. 4. Программа выводит сообщение "Четные числа от N до M:" с помощью `writeln('Четные числа от ', N, ' до ', M, ':')`. 5. Если число `N` нечетное (т.е. `N mod 2 <> 0`), то программа увеличивает его на 1, чтобы начать с четного числа. 6. Затем с помощью цикла `for` программа перебирает все числа от `N` до `M` с шагом 2 (т.е. только четные числа) и выводит их с помощью `writeln(i)`.

Пример работы программы

Введите число N:
5
Введите число M:
12
Четные числа от 6 до 12:
6
8
10
12

Обратите внимание: Программа выводит только четные числа в заданном диапазоне от `N` до `M`. Если `N` является нечетным числом, то программа автоматически увеличивает его на 1, чтобы начать с четного числа.