Question

Дано натуральное число n. Составить программу вычисления значения выражения. Результат округлить до сотых.

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  if n<=0 then Writeln('s=0')
  else begin
    var ssin:=sin(1);
    var s:=1/ssin;
    for var i:=2 to n do begin ssin+=sin(i); s+=1/ssin end;
    Writeln('s=',s:0:2)
    end
end.

Пример
n= 5
s=8.85