===== PascalABC.NET =====
begin
var (a, b) :=
ReadInteger2('Укажите координаты начала и конца отрезка:');
var x := ReadInteger('Укажите координату точки А:');
if x.InRange(a, b) then
Println('Точка принадлежит отрезку')
else
Println('Точка не принадлежит отрезку')
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
var (a, b) :=
ReadInteger2('Укажите координаты начала и конца отрезка:');
var x := ReadInteger('Укажите координату точки А:');
if x.InRange(a, b) then
Println('Точка принадлежит отрезку')
else
Println('Точка не принадлежит отрезку')
end.