Вычислить : (1+Cos0.1) (1+cos0.2) ... (1+cos10)

Question

Информатика

Феофила

19 августа, 09:26

Вычислить : (1+Cos0.1) (1+cos0.2) ... (1+cos10)

+4

Ответы (1)

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

Надена · Answer 1

Var

P:real;

A:integer;

Begin

P:=1;

For A: = 1 to 100 do

P:=P * (1+Cos (A/10)) ;

WriteLn ('P = ', P) ;

End.

Результат работы программы:

P = 2.79308459159613E-38