Question

Дана числовая последовательность \frac{1}{sin1}, \frac{1}{sin2}, \frac{1}{sin3} , ...
Найти сумму членов с m по n включительно. Провести отладку для программы. m=10 n=25.

Answer 1

//PascalABC.NET

//Версия 3.3, сборка 1634

begin

var (m,n):=ReadInteger2;

write('s=',SeqGen(n-m,x->1/sin(x),m).Sum:0:2);

end.

отладка:

10 25

s=-111.92