РЕШИТЕ х, a, b: real;
begin
writeln ('Определение принадлежности точки отрезку');
write ('Введите а, b>>');
readln (а, b) ;
write ('Введите х»');
readln (х);
if (х>=а) and (x<=b) then
writeln ('Точка принадлежит отрезку')
else writeln ('Точка не принадлежит отрезку')
end.

Soto350    1   16.04.2020 10:55    2