Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
Код на паскале

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.

213
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам