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

Question

Информатика

Канта

29 августа, 06:11

Дано натуральное число 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.