Вычислить(1+sin0.1)(1+sin0.2) ... (1+sin10) для Free Pascal. Помогите!!!!

0 голосов
203 просмотров

Вычислить
(1+sin0.1)(1+sin0.2) ... (1+sin10) для Free Pascal. Помогите!!!!


Информатика (12 баллов) | 203 просмотров
Дан 1 ответ
0 голосов

Var i,p:real;
begin
  i:=0.1;
  p:=1;
  while (i<=10) do<br>    begin
       p:=p*(1+sin(pi*i/180));
       i:=i+0.1;
    end;
  writeln ('Rezultat: ',p);
  readln;
end.

(2.8k баллов)