Question

помогите написать на паскале программу для вычесления суммы четных чисел от 0 до 10 с выводом результата

Answer 1

var s, i: integer;

begin

  s:= 0;

  for i:= 0 to 10 do 

    if i mod 2 = 0 then s:= s + i; {если остаток от деления на 2 равен 0, то прибавляй i к сумме}

  write('Сумма равна ', s);

end.

Answer 2

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

program SumOfEvenNumbers;

var
  sum: integer;
  i: integer;

begin
  sum := 0;
  
  for i := 0 to 10 do
  begin
    if i mod 2 = 0 then // проверяем, является ли число четным
      sum := sum + i; // добавляем четное число к сумме
  end;
  
  writeln('Сумма четных чисел от 0 до 10 равна: ', sum);
  readln;
end.

Программа использует переменную `sum` для хранения суммы четных чисел и переменную `i` для итерации от 0 до 10. В цикле `for` мы проверяем каждое число, является ли оно четным с помощью оператора `mod` (остаток от деления на 2). Если число четное, оно добавляется к переменной `sum`. В конце программы выводится результат с помощью `writeln`. `readln` используется для ожидания ввода пользователя перед закрытием программы.

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