Question

СДЕЛАЙТЕ, ПРОШУ, это программа для Паскаля.... З клавіатури вводяться числа m та n (m — початок діапазону, п — його кінець). Потрібно знайти суму всіх парних чисел, які належать цьому діапазону. Для цього потрібно використати циклічні структури, оператори умови та функцію mod.

Answer 1

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Введите границы диапазона:');

 if m > n then  // если границы ввели "наоборот"

   Swap(m, n);

 Range(m, n).Where(p -> p.IsEven).Sum.Print

end.

Answer 2

Звичайно, ось програма на мові Паскаль, яка знаходить суму всіх парних чисел у заданому діапазоні m та n:

pascalCopy code
program SumOfEvenNumbers;

var
  m, n, i, sum: integer;

begin
  writeln('Введіть початок діапазону m:');
  readln(m);

  writeln('Введіть кінець діапазону n:');
  readln(n);

  sum := 0;

  for i := m to n do
  begin
    if (i mod 2) = 0 then // Перевірка, чи число є парним за допомогою оператора mod
    begin
      sum := sum + i;
    end;
  end;

  writeln('Сума всіх парних чисел в діапазоні від ', m, ' до ', n, ' дорівнює ', sum);
end.

Ця програма використовує цикл for, щоб пройти по діапазону від m до n включно. Для кожного числа i, програма перевіряє, чи є воно парним за допомогою оператора mod (ділення за модулем на 2). Якщо число є парним, воно додається до змінної sum, яка зберігає загальну суму парних чисел. На кінці програма виводить результат суми на екран.

Запустіть цю програму, та введіть значення m та n, і вона покаже суму всіх парних чисел у вказаному діапазоні.