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

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

Задать свой вопрос
Милена Шпакевич
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.
1 ответ
Var x: real;
    i, m: integer;
begin
     readln(m);
     for i := 1 to m do
         if (sin(i) gt;= 0) then
              x := x + sin(i)
         else
              break;
     writeln(x);
end.

Должно быть, так)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт