Question

pascal while
Дано натуральное n. Вычислить:

в)1/sin1+1/sin1+sin2+...+1/sin1+...+sin(n).

Answer 1

Program whilePaskal;

var b, a: integer;

sum: real;

Begin

ReadLn(a);

b:=1;

sum:= 0;

while (b<=a) do

Begin

sum := sum+1/sin(b);
b:=b+1;

end;

WriteLn(sum);

end.