Решить по языку Pascal


Решить по языку Pascal

Задать свой вопрос
1 ответ
Var
    x, y, z : Integer;
    f : Real;
begin
    Write('x: ');
    Readln(x);

    Write('y: ');
    Readln(y);

    Write('z: ');
    Readln(z);

    f := x / (sqr(y) + sqr(z)*z) + sqr(y) / (sqr(z) - sqr(y)) - (sqr(z) - y) / (x*y + z);   

    Writeln(f);
    Readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт