Question

Сумма всех чётных чисел от 1 до N с клавиатуры Паскаль

Answer 1

program summa;

var i,a,n,sum:integer;

begin

writeln('Введите n');

read(n);

sum:=0;

for i:=1 to n do

 begin

  read(a);

  if (a mod 2=0) then sum:=sum+a;

 end;

writeln('Cумма всех четных чисел =',sum);

end.

Answer 2

Для того чтобы написать программу на языке Pascal, которая вычислит сумму всех чётных чисел от 1 до N, вам понадобится использовать цикл и условное выражение. Вот пример программы:

program SumOfEvenNumbers;

var
  N, i, sum: integer;

begin
  // Ввод значения N с клавиатуры
  write('Введите N: ');
  readln(N);

// Инициализируем переменную суммы нулём
  sum := 0;

// Проходим по всем числам от 1 до N
  for i := 1 to N do
  begin
    // Проверяем, является ли текущее число чётным
    if i mod 2 = 0 then
    begin
      // Если число чётное, то добавляем его к сумме
      sum := sum + i;
    end;
  end;

// Выводим сумму чётных чисел
  writeln('Сумма чётных чисел от 1 до ', N, ' равна: ', sum);

// Ждем нажатия клавиши перед завершением программы
  readln;
end.

Эта программа сначала запрашивает у пользователя значение N, затем инициализирует переменную суммы нулём и использует цикл `for` для перебора всех чисел от 1 до N. Для каждого числа проверяется, является ли оно чётным, и если это так, то оно добавляется к сумме. В конце программа выводит сумму чётных чисел от 1 до N.