//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
<em>VAR</em>
<em> ans: Real;</em>
<em> n, i: Integer;</em>
<em>BEGIN </em>
<em> Read(n);</em>
<em> </em>
<em> For i := 1 to n do </em>
<em> ans := ans + (1 / Sqr(i));</em>
<em> </em>
<em> Write(ans);</em>
<em>END.</em>
================================================
Sub abc()
Dim i As Integer, s As Integer
s = 0
For i = -5 To 10
s = s + i
Next i
MsgBox s
End Sub