Дано натуральное число n. вычислить, используя while и repeat: 1/sin1+1/(sin1+sin2)++1/(sin1+sin2+sinn)

givlinkovpaschozszti givlinkovpaschozszti    1   26.09.2019 21:30    9

Ответы
arujanjagipar arujanjagipar  08.10.2020 21:12
Begin
    var n := ReadlnInteger('n =');
    var i := 1;
    var s1,s2:real;
    while i <= n do
    begin
        s1 += Sin(i);
        s2 += 1/s1;
        i +=1;
   end;
   Write('S = ',s2)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика