Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Вот программа
Объяснение:
1 кбайт
1000 байт
1024 бит
1 байт
1 бит
var x,y,a,b: real; begin read(a,b); read(x,y); if y=a*x+b then writeln('точка принадлежит прямой') else writeln('точка не принадлежит прямой'); end.
Популярные вопросы