Question

2. Найти произведение P=(x+ 1/5)(x+ 4/9) … (n мн.). Выполнить ручную трассировку при х=1, n=3

Answer 1

Program pr1;

Var x, i,n:Integer; P,a,b: Real;

Begin

P:=1;

a:=0.2;

b:=11/40;

Writeln ('Введите x');

Writeln ('Введите n');

Read (x);

Read (n);

For i:=1 to n do begin

P:=p*(x+(a+b));

a:= a+b;

end;

Write ('P=',P);

End.