Question

Напишите программу, которая выводит на монитор все четные числа из промежутка от 1 до N(число N вводится с клавиатуры) Срочно!!!! На Паскале

Answer 1

const nx =30;
var i,n:integer;
begin
write('Введите n'); Read(n);
for i:=1 to n do
if i mod 2 = 0 then write(i:4);
end.

Answer 2

Программа на Pascal:

program EvenNumbers;

var
  N, i: integer;

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

Эта программа сначала запрашивает у пользователя число N, затем выводит все четные числа от 1 до N. В цикле проверяется, является ли текущее число четным (остаток от деления на 2 равен 0), и если да, то оно выводится на экран.