Очень необходимо перевести из Паскаля эту программу, помогите пожалуйста Var r,

Очень необходимо перевести из Паскаля эту программу, помогите пожалуйста Var r, i: integer; begin write('r = '); readln(r); for i := r downto 1 do if Tan(i) < 0 then break; write(i); end.

Задать свой вопрос
0 ответов
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт