Question

Написать программу Pascal с использованием циклов, Срочно.

Answer 1

Ответ:

Var

I, m: integer;

Mul:float;

Begin

Read(b);

Mul=1;

M=-1;

For i := 1 to 8 do

Begin

Mul:=mul*(b+(i+1)*(i+1)*m)/i;

M:=m*(-1);

End;

Writeln(mul);

End.

Объяснение: