Question

Помогите с программированием (Паскаль) 2)найти сумму всех четных и произведение всех нечетных элементов в диапазоне от a до b (вводятся с клавиатуры)​

Answer 1

Ответ:

var

 a, b: integer;

 s, p: uint64;

begin

 Write('Введите a = '); ReadLn(a);

 Write('Введите b = '); ReadLn(b);

 if a > b then swap(a, b);

 p := 1;

 while a <= b do

 begin

   if a mod 2 = 0 then s := s + a else p := p * a;

   a := a + 1;

 end;

 WriteLn('Сумма четных чисел от a до b равна ', s);

 WriteLn('Произведение нечетных чисел от a до b равна ', p);

end.

Объяснение:

Answer 2

Конечно, я помогу вам написать программу на Pascal для решения данной задачи. Вот как она может выглядеть:

pascalCopy code
program SumAndProduct;
var
  a, b, i: integer;
  evenSum, oddProduct: longint;
begin
  // Ввод значений a и b
  writeln('Введите значение a:');
  readln(a);
  writeln('Введите значение b:');
  readln(b);

  // Инициализация переменных суммы четных и произведения нечетных элементов
  evenSum := 0;
  oddProduct := 1;

  // Вычисление суммы четных и произведения нечетных элементов
  for i := a to b do
  begin
    if i mod 2 = 0 then
      evenSum := evenSum + i
    else
      oddProduct := oddProduct * i;
  end;

  // Вывод результатов
  writeln('Сумма всех четных элементов от ', a, ' до ', b, ': ', evenSum);
  writeln('Произведение всех нечетных элементов от ', a, ' до ', b, ': ', oddProduct);

  readln;
end.

Скопируйте этот код в среду программирования на Pascal (например, Free Pascal), и после его выполнения программа запросит вас ввести значения a и b, а затем выведет сумму всех четных и произведение всех нечетных элементов в заданном диапазоне.