Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ## //if20
- //var (a,b,c) := (5.26,4.36,-2.84);+++
- //var (a,b,c) := (3.17,-9.54,6.31);+++
- //var (a,b,c) := (4.45,6.36,3.95);+++
- var (a,b,c) := ReadReal3;
- if (Abs(a-b) > Abs(a-c)) then
- begin
- Println($'Ближайшая точка: {c}');
- Println($'Расстояние: {Abs(a-c)}');
- end
- else
- begin
- Println($'Ближайшая точка: {b}');
- Println($'Расстояние: {Abs(a-b):f2}');
- end;
Advertisement
Add Comment
Please, Sign In to add comment