Ответы 1

  • var y,k,x:real;n,i:integer;beginreadln(x);readln(n);y:=0;k:=1;for i:=1 to n do begink:=(sin(x))*k;y:=y+k;end;writeln(y);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years