Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n

@Ишка · Регистрация: 16.04.2010

1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n

@Puporev · 25.04.2010, 14:50

Pascal

uses crt;
var n,i,j:integer;
    s,t:real;
begin
clrscr;
write('n=');
readln(n);
s:=0;
i:=0;
while i<n do
 begin
  i:=i+1;
  j:=0;
  t:=0;
  while j<i do
   begin
    j:=j+1;
    t:=t+sin(j);
   end;
  s:=s+1/t;
 end;
write('S=',s:0:5);
readln
end.

@Nyshk@ · 16.06.2013, 11:57

Спасибо за задачку, надеюсь завтра она мне поможет сдать зачет

@Ишка 12 / 12 / 0 Регистрация: 16.04.2010 Сообщений: 156
		1
	Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n 25.04.2010, 14:28. Просмотров 2701. Ответов 2 Метки нет (Все метки) 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n 0

@Nyshk@ 2 / 2 / 2 Регистрация: 06.06.2013 Сообщений: 83
	16.06.2013, 11:57	3
	Спасибо за задачку, надеюсь завтра она мне поможет сдать зачет 0

Опции темы

Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n

Решение