Вычислить(1+sin0.1)(1+sin0.2) ... (1+sin10) для Free Pascal. Помогите!!!!
Вычислить
(1+sin0.1)(1+sin0.2) ... (1+sin10) для Free Pascal. Помогите!!!!
Гость
Ответ(ы) на вопрос:
Гостьvar i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
Не нашли ответ?
Похожие вопросы