DamirPlay
я так понимаю k и l пременные задаваемы вручную, если так то условие простое, решай сам) Это полный текст проги, удачи!
--------------- var x0,y0:real; begin readln('Введите координату Х: ' ,x0); {X координата точки А} readln('Введите координату Y:',y0); {Y координата точки А}
readln('Введите коэффициент R:,'k); readln('Введит коэффициент L:',l); if y0=k*x0+l then write('точка лежит на прямой') else write('точка не лежит на прямой'); readln; end.
Answers & Comments
1-3 2-1 2-2
Это полный текст проги, удачи!
---------------
var x0,y0:real;
begin
readln('Введите координату Х: ' ,x0); {X координата точки А}
readln('Введите координату Y:',y0); {Y координата точки А}
readln('Введите коэффициент R:,'k);
readln('Введит коэффициент L:',l);
if y0=k*x0+l then write('точка лежит на прямой')
else write('точка не лежит на прямой');
readln;
end.