Сделать в паскале! запросить с клавиатуры координаты - вопрос №2779938 от Айгуль11111катон 12.03.2020 21:58

Question

Информатика: Сделать в паскале! запросить с клавиатуры координаты точки (x, y) и горизонтального отрезка прямой (xn, xk, yn) и определить, лежит точка на отрезке прямой или нет. сообщение об этом вывести на экран. подсказка. если координата y точки не равна координате y прямой, то не лежит, если координата х точки не находится в пределах между хn начала и хk конца прямой, то точка не лежит на прямой.

Айгуль11111катон · Answer

Var  a,b,z,x,y:real;beginwrite( Введите координаты точки (x,y): );readln(x,y);write( Введите координаты отрезка (Xn, Xk, Yn): );readln(a,b,z);if (y=z) and (x =a) and (x =b) then   writeln( Да, принадлежит )   else writeln( Нет, не принадлежит )end....