igorich1376

if20

Dec 2nd, 2025
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.42 KB | None | 0 0
  1. ## //if20
  2. //var (a,b,c) := (5.26,4.36,-2.84);+++
  3. //var (a,b,c) := (3.17,-9.54,6.31);+++
  4. //var (a,b,c) := (4.45,6.36,3.95);+++
  5. var (a,b,c) := ReadReal3;
  6. if (Abs(a-b) > Abs(a-c)) then
  7.   begin
  8.    Println($'Ближайшая точка: {c}');
  9.    Println($'Расстояние: {Abs(a-c)}');
  10.   end
  11. else
  12.   begin
  13.    Println($'Ближайшая точка: {b}');
  14.    Println($'Расстояние: {Abs(a-b):f2}');
  15.   end;
Advertisement
Add Comment
Please, Sign In to add comment