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

Question

Информатика

Иттаки

26 мая, 07:34

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

+3

Ответы (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.