Помогите в программе Pascal (линейный, ветвление и циклический)

Разработайте схему алгоритма

для вычисления произведения P = (-1) * 2 * (-3) * 4 * (-5)

* ... * n. Используйте два цикла: один для вычисления произведения нечетных

чисел P1,

второй - для вычисления произведения четных чисел P 2.

Question

Информатика

Нада

8 июня, 17:58

Помогите в программе Pascal (линейный, ветвление и циклический)

Разработайте схему алгоритма

для вычисления произведения P = (-1) * 2 * (-3) * 4 * (-5)

* ... * n. Используйте два цикла: один для вычисления произведения нечетных

чисел P1,

второй - для вычисления произведения четных чисел P 2.

+5

Ответы (1)

Знаете ответ на вопрос?

Римуля · Answer 1

Var

a, n, x, p1, p2:integer;

begin

readln (n) ;

x:=-1;

a:=0;

p1:=1;

p2:=1;

while abs (a)
x:=x * (-1) ;

a: = (abs (a) + 1) * x * (-1) ;

if abs (a) mod 2=0 then

p2:=p2*a

else

p1:=p1*a;

end;

writeln (p1) ;

writeln (p2) ;

end.