помогите кто чем может! решите и напишитте пожалуйста любую из эти программ, можно две! пожалуйста! плохо разбираюсь в инфе;( Найти длину отрезка в метрах. На числовой оси расположены три точки А, B, C. Определить, какая из двух последних точек (B или С) расположена ближе к А, вывести эту точку и ее расстояние от точки А.
var
a, b, c:real;
begin
write(A = ); readln(a);
write(B = ); readln(b);
write(C = ); readln(c);
if abs(A - B )< abs(A - C) then
writeln(точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: , abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln(точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: , abs(A - C))
else
writeln(Точки B и C находятся на одинковом расстоянии от точки А равном: , abs(A - C));
end.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
