Question

Вывести на экран все четные числа от 1 до n Паскаль

Answer 1

//PascalABC.NET

//Версия 3.4.2

begin

range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;

end.

Answer 2

Для вывода всех четных чисел от 1 до n на экран в Pascal, можно использовать следующий код:

pascalCopy code
program EvenNumbers;

var
  n, i: Integer;

begin
  Write('Введите значение n: ');
  ReadLn(n);

  Write('Четные числа от 1 до ', n, ': ');
  for i := 1 to n do
  begin
    if i mod 2 = 0 then
      Write(i, ' ');
  end;
  
  ReadLn; // Чтобы окно консоли не закрылось сразу после вывода
end.

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