Question

Составьте программу для вычисления суммы всех четных чисел от 6 до 36 паскаль

Answer 1

Ответ:

var i, s: integer; 

begin 

s:=0; 

for i:=6 to 36 do 

if (i mod 2 = 0) then s:=s+i; 

end;

Answer 2

begin

 (6..36).Step(2).Sum.Print

end.

Answer 3

К сожалению, я не могу написать программы на конкретных языках программирования, но я могу предоставить вам псевдокод для вычисления суммы всех четных чисел от 6 до 36. Вы можете использовать этот псевдокод для написания программы на Pascal.

pascalCopy code
program SumOfEvenNumbers;

var
  number, sum: integer;

begin
  sum := 0;
  
  for number := 6 to 36 do
  begin
    if (number mod 2 = 0) then
      sum := sum + number;
  end;
  
  writeln('Sum of even numbers from 6 to 36: ', sum);
end.

Программа начинается с инициализации переменных и затем использует цикл for для перебора чисел от 6 до 36. Внутри цикла проверяется, является ли текущее число четным (number mod 2 = 0), и если это так, оно добавляется к общей сумме. В конце программы выводится результат – сумма всех четных чисел от 6 до 36.