Question

а если здесь расстояния будут одинаковы ,как будет выглядеть программа​

Answer 1

var

 x1, y1, x2, y2, dist_tanya, dist_katya: Double;

 

begin

 Write('Введите координаты дома Тани: ');

 Read(x1, y1);

 Write('Введите координаты дома Кати: ');

 Read(x2, y2);

 

 dist_tanya := sqrt(x1*x1 + y1*y1);

 dist_katya := sqrt(x2*x2 + y2*y2);

 

 if dist_tanya > dist_katya then

   WriteLn('Танин дом ближе')

 else if dist_tanya = dist_katya then

   WriteLn('Оба дома находятся на одинаковом расстоянии от школы')

 else

   WriteLn('Катин дом ближе')

end.