Question

На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A.
В питоне

Answer 1

Ответ:

Объяснение:

program noname;

uses Crt;

var a,b,c,ab,ac:Real;

begin

ClrScr;

Writeln('Введите координату точки A:');

Readln(a);

Writeln('Введите координату точки B:');

Readln(b);

Writeln('Введите координату точки C:');

Readln(c);

ab:=abs(a-b);

ac:=abs(a-c);

if ab<ac then Writeln('Точка В ближе к А,ab=',ab:0:2) else

if ac<ab then Writeln('Точка C ближе к А,ac=',ac:0:2) else

if ab=ac then Writeln('Точки B и C равноудалены от А.');

Readln;

end.