Question

Написать программу, определяющую положение точки M(X;Y) относительно прямой y=ax+b

Answer 1

var x,y,a,b:real;
Begin
  read(a,b);
  read(x,y);
  if y=a*x+b then
    writeln('Точка принадлежит прямой')
  else  writeln('Точка не принадлежит прямой');
End.