Помогите с программированием (Паскаль)
2)найти сумму всех четных и произведение всех нечетных элементов в диапазоне от a до b (вводятся с клавиатуры)
2)найти сумму всех четных и произведение всех нечетных элементов в диапазоне от a до b (вводятся с клавиатуры)
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: