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.

Объяснение: