Var x1,y1:real; begin writeln('Введите координаты точки x1 и y1'); readln(x1,y1); if y1=x1*x1*x1+x1/4 then writeln('Данная точка принадлежит кривой x^3 + x/4') else writeln('Данная точка не принадлежит кривой x^3 + x/4'); end.
Пример: Введите координаты точки x1 и y1 2 8.5 Данная точка принадлежит кривой x^3 + x/4
Answers & Comments
Verified answer
Var x1,y1:real;begin
writeln('Введите координаты точки x1 и y1');
readln(x1,y1);
if y1=x1*x1*x1+x1/4
then writeln('Данная точка принадлежит кривой x^3 + x/4')
else writeln('Данная точка не принадлежит кривой x^3 + x/4');
end.
Пример:
Введите координаты точки x1 и y1
2 8.5
Данная точка принадлежит кривой x^3 + x/4