Версия для печати темы

Автор: -Pavel- 30.10.2007 2:19

Дано натуральное число n. Вычислить:
1/sin1+1/(sin1+sin2)+...+1/(sin1+sin2+...sinn)

Помогите пожалуйста вообще не знаю как делать=(((

Автор: Lapp 31.10.2007 14:19

  s:=0;
  t:=0;
  for i:=1 to n do begin
    t:=t+Sin(i);
    s:=s+1/t
  end;
  WriteLn(s)

Автор: Гость 12.10.2011 18:32

Цитата(Lapp @ 31.10.2007 10:19)

  s:=0;
  t:=0;
  for i:=1 to n do begin
    t:=t+Sin(i);
    s:=s+1/t
  end;
  WriteLn(s)