Разработайте метод вычисления функции z

Разработайте метод вычисления функции z

Задать свой вопрос
1 ответ
Код на паскале

program ex;
var
    x, y, z: real;
begin
    writeln('Введите x и y: ');
    readln(x, y);

    if ((x*x + y*y) lt; 1) then
        z := x*x + y*y;
    if ((x*x + y*y = 1)) then
        z := x + y;
    if ((x*x + y*y) gt; 1) then
        z := 0.5;

    writeln('z = ', z);
end.

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


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

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

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

Войти на сайт