Question

составить программу, определяющую, пройдет ли график функций у=10х-7х+2 через заданную точку с координатами (а,б).

Answer 1

var a,b:real;

begin

   writeln('Enter a, b:');

   readln(a,b);

   if (10*a*a-7*a+2=b) then

      writeln('Prohodit')

   else

      writeln('Ne prohodit')

end.