Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Заданы координаты трех точек плоскости. Эти точки не лежат на одной прямой?

Нужна программа в Паскале.

Ответ оставил Гость

var x1,x2,x3,y1,y2,y3:real;
begin
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
if (x3-x1)*(y2-y1)=(x2-x1)*(y3-y1) then writeln(lejat na pryamoi) else writeln(ne lejat na pryamoi);
end.