Question

Составьте программу вычисляющую сумму S=2+4+6...+20 В Pascal, пожалуйста

Answer 1

program summa;

var

 s, i: integer;

begin

 for i := 2 to 20 do

   if i mod 2 = 0 then

     S := S + i;

 writeln('Сумма = ',s);

end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая вычисляет сумму ряда S=2+4+6+...+20:

pascalCopy code
program SumOfEvenNumbers;

var
  i, S: integer;

begin
  S := 0;

  for i := 2 to 20 step 2 do
  begin
    S := S + i;
  end;

  writeln('Сумма ряда S = ', S);
end.

Обратите внимание, что в цикле for мы используем шаг 2, чтобы перебирать только четные числа от 2 до 20, и затем суммируем их в переменную S. После завершения цикла, программа выводит значение суммы на экран.

Запустите эту программу в среде разработки для Pascal, и она выдаст результат:

Copy code
Сумма ряда S = 110

Таким образом, сумма ряда S равна 110.