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

Question

Информатика

Мали

18 марта, 03:27

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

+5

Ответы (1)

Знаете ответ на вопрос?

Малюга · Answer 1

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.