Найдите сумму sin(1)+sin(2)+...(M) и число слагаемых до первого отрицательного слагаемого.
Найдите сумму sin(1)+sin(2)+...(M) и число слагаемых до первого отрицательного слагаемого.
Гость
Ответ(ы) на вопрос:
Гость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.
Должно быть, так)
Не нашли ответ?
Похожие вопросы