Дано натуральное число N. Вычислить S=1/sin1+1/sin2+....+1/sinN. Надо написать ** Паскале

Question

Дано натуральное число N. Вычислить S=1/sin1+1/sin2+....+1/sinN. Надо написать на Паскале

Answer 1

Var s: real;
    i, c: integer;
begin
     readln(c);
     for i := 1 to c do
         s := s + 1 / sin(i);
     writeln(s);
end.

=)