var x,y:real;
begin
write('Введите x: '); readln(x);
write('Введите y: '); readln(y);
write((abs(y) <= sqrt(abs(4-sqr(x and (abs(y) >= 1) and (abs(x) <= sqrt(3)))
end.
Поделитесь своими знаниями, ответьте на вопрос:
Нужно написать программу на Паскале Тема: проверка попадания в заданную область точки. Вариант 28.
var x,y:real;
begin
write('Введите x: '); readln(x);
write('Введите y: '); readln(y);
write((abs(y) <= sqrt(abs(4-sqr(x and (abs(y) >= 1) and (abs(x) <= sqrt(3)))
end.