Question

Найти сложение четных чисел от 1 до 10, в паскале

Answer 1

Я написала в Qbasic Может, сможешь переложить в паскаль

Answer 2

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

program SumOfEvenNumbers;

var
  i, sum: integer;

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

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