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

Question

Информатика

Консуэло

6 июля, 20:57

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

+3

Ответы (1)

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

Ритка · 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.