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

@ruskhas · Регистрация: 19.05.2013

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

@Harlem · 22.05.2013, 18:05

Вот:

Pascal

uses crt;
var
   a,b,s,k,i:integer;
   sk:real;
function si(n:integer):real;
var i:integer;
    s:real;
begin
     s:=0;
     for i:=1 to n do
         s:=s+sin(i);
     si:=s;
end;
Begin
     read(k);
     sk:=0;
     for i:=1 to k do
         sk:=sk+(1/si(i));
     writeln;
     write('S=',sk);
End.

@Erea · 22.05.2013, 18:12

Pascal

readln(n);
for i:=1 to n do begin
    for j:=1 to i do begin
        x:=x+sin(i);
    end;
    a:=a+1/x;
end;
writeln(a);

@ruskhas 1 / 1 / 0 Регистрация: 19.05.2013 Сообщений: 34
		1
	Дано натуральное число n. Вычислить: 1/sin1+1/(sin1+sin2)+.+1/(sin1+sin2+.sinn) 19.05.2013, 18:09. Показов 20913. Ответов 2 Метки нет (Все метки) Дано натуральное число n. Вычислить: 1/sin1+1/(sin1+sin2)+...+1/(sin1+sin2+...sinn) 0

Опции темы

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

Решение