Найдите сумму sin(1)+sin(2)+...(M) и число слагаемых до первого отрицательного слагаемого.

Question

Найдите сумму sin(1)+sin(2)+...(M) и число слагаемых до первого отрицательного слагаемого.

Comments

const m=?; {Вместо "?" нужно вписать любое число}Var s:real;Begin s:=0; for i:=2 to m do if sin(i)<0 then s:=s+sin(i); writeln(s);End.

Answer 1

Var x: real;
    i, m: integer;
begin
     readln(m);
     for i := 1 to m do
         if (sin(i) >= 0) then
              x := x + sin(i)
         else
              break;
     writeln(x);
end.

Должно быть, так)