Question

Дано натуральное число n. Составить программу вычисления значения. Результат округлить до сотых.
В Паскале, через оператор повторения.
$frac{1}{sin1} +frac{1}{sin1+sin2} +...+frac{1}{sin1+...+sinn}$

Answer 1

Ответ:

var n,i,j: integer;

var res,sum: double;

begin

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

readln(n);

i:=1;

j:=1;

res:=0;

while (i<=n) do

 begin

 sum:=0;

 j:=1;

 while (j<=i) do

   begin

   sum:=sum+sin(j);

   j:=j+1;

   end;

 res:=res+(1/sum);

 i:=i+1;

 end;

writeln('Ответ: ',res:5:2);

end.