Напишите программу на языке программирования Pascal. Дано натуральное число m. Вычислить:

Question

Напишите программу на языке программирования Pascal. Дано натуральное число m.
Вычислить:

Answer 1

Program sinys;
var m,i:integer;x:real;mas:array [1..1000] of integer; 
 begin
 x:=0; 
 readln(m); 
 for i:=1 to m do  
   x:=x+(1/sin(i)); 
 writeln(x)
 end.

Comments

Не заметил :)

---

Спасибо огромное