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

1
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.

Ответы и объяснения

2013-10-23T02:38:54+00:00
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.

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