Question

Срочно. Выведите все четные числа в диапазоне от 0 до 100. Программа - Паскаль. Чем проще, тем лучше. Программа должна работать.

Answer 1

var i: integer;

begin  

for i:=0 to 100 do

if i mod 2 = 0 then write(i,' ');

end.

Answer 2

Для вывода всех четных чисел в диапазоне от 0 до 100 на Паскале, вы можете использовать следующий код:

pascalCopy code
program PrintEvenNumbers;

var
  i: integer;

begin
  for i := 0 to 100 do
  begin
    if i mod 2 = 0 then
      writeln(i);
  end;
end.

В этом коде мы используем цикл for, чтобы пройти через числа от 0 до 100. Затем с помощью оператора if проверяем, является ли текущее число i четным (то есть остаток от деления на 2 равен нулю). Если это так, то число выводится на экран с помощью процедуры writeln.

Программа проста и будет выводить все четные числа в заданном диапазоне, как требуется.