Задание:
Дано натуральное число N. Вычислить S=1/sin1+1/sin2+… .+1/sinN. Надо написать на Паскале
Решение:
Var s: real; i, c: integer; begin readln (c); for i: =1 to c do s: =s+1 / sin (i); writeln (s); end.=)
Знаете другой ответ?
Дано натуральное число N. Вычислить S=1/sin1+1/sin2+… .+1/sinN. Надо написать на Паскале
Var s: real; i, c: integer; begin readln (c); for i: =1 to c do s: =s+1 / sin (i); writeln (s); end.=)
Знаете другой ответ?