напишите программу пожалуйста

Напишите программку пожалуйста

Задать свой вопрос
1 ответ

Var y:real;x:integer;

Begin

For x:=-6 to 6 do

If (xlt;gt;-4)and (xlt;gt;4) then begin

Writeln;

Y:=(x-4)/(x+4)+(x+4)/(x-4);

Write('При x=', x, ' y=', y) ;end

Else begin writeln;write('Нет смысла') ;end;

End.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт