Question

Даны 10 чисел, которые последовательно вводятся одно за другим. требуется вычислить сумму только четных чисел. Помогите пожалуйста. Написать программу в Паскале ​

Answer 1

const size = 10;

Var

  sum: integer;

  arr: array[1..size] of integer;

   

Begin

  for var i := 1 to size do

  begin

     Write('Введите ', i, ' число: ');

     Readln(arr[i]);

     

     if (arr[i] mod 2 = 0) then

        sum := sum + arr[i];

  end;

   

  Writeln();

  Writeln('Сумма четных чисел = ', sum);

End.

Answer 2

Конечно, я могу помочь написать программу на Pascal для вычисления суммы только четных чисел. Вот пример такой программы:

program SumOfEvenNumbers;

var
  number, sum: integer;
  i: integer;

begin
  sum := 0;
  
  writeln('Введите 10 чисел:');
  
  for i := 1 to 10 do
  begin
    readln(number);
    
    if number mod 2 = 0 then
      sum := sum + number;
  end;
  
  writeln('Сумма четных чисел: ', sum);
end.

В этой программе мы используем переменные `number` для хранения введенного числа, `sum` для суммирования четных чисел и `i` для счетчика цикла.

Мы начинаем с инициализации `sum` равным нулю. Затем мы вводим 10 чисел с помощью цикла `for`. В каждой итерации цикла мы проверяем, является ли введенное число четным с помощью оператора `mod`. Если число четное, то мы добавляем его к сумме `sum`.

После завершения цикла, мы выводим сумму четных чисел на экран с помощью `writeln`.

Вы можете скопировать эту программу в среду разработки Pascal и запустить ее, чтобы проверить ее работу.

Answer 3

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

program SumOfEvenNumbers;

var
  num, sum: integer;
  i: integer;

begin
  sum := 0;

for i := 1 to 10 do
  begin
    write('Введите число: ');
    readln(num);

if num mod 2 = 0 then
      sum := sum + num;
  end;

writeln('Сумма четных чисел: ', sum);
end.

Программа запрашивает 10 чисел от пользователя и вычисляет сумму только четных чисел. Если введенное число делится на 2 без остатка, оно суммируется с переменной `sum`. В конце программы выводится результат - сумма четных чисел.

Примечание: В данном примере предполагается, что пользователь будет вводить только целые числа. Если требуется обработка вещественных чисел или другие проверки на ввод, код может потребовать доработки.

Надеюсь, это поможет вам написать программу на языке Паскаль для вычисления суммы четных чисел из последовательности. Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать.