Question

помогите пожалуйста решить лабораторку по информатике в turbo pascal 7.0
задание: написать программу, определяющую расположение точки на плоскости. если введенные координаты точки оказываются внутри фигуры или области, то выведете на экран "да", в противном случае "нет". выполнение программы проведите в таблице отчета  (x²+y²/4≤2) и (|y|≤1)

Answer 1

Проверял в ПаскалеАВС. Должно и в Турбо работать

program a;
var  x,y:real;
begin
readln(x,y);
if (x*x+y*y/4<=2) and (abs(y)<=1) then writeln('да') else writeln('нет'); 
readln; 
end.