Вычислить значение выражения

@CroSSer23 · Регистрация: 05.01.2016

Студворк — интернет-сервис помощи студентам

Приветствую, не могу решить очень простое задание:
Дано натуральное число n. Создать программу вычисления значение выражения:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \frac{1}{\sin 1}+\frac{1}{\sin 1+\sin 2}+...+\frac{1}{\sin 1+...+\sin n}<br />$

Сделал вот такой код, но он решает совсем другое выражение...

Pascal

var s: real;
    i, n: integer;
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  s := 0;
  for i := 1 to n do s := s + 1/sin(n);
  write('s = ', s:0:15);
  readln
end.

@Puporev · 26.11.2016, 18:03

Pascal

var s,s1: real;
    i, n: integer;
begin
repeat
 write('n > 0;  n = ');
 readln(n)
until n > 0;
s := 0;
s1:=0;
for i := 1 to n do
 begin
  s1:=s1+sin(i);
  s:=s+1/s1;
 end;
write('s = ', s:0:4);
end.

Опции темы