В Чепуляндии на прямой Ox располагаются три дома. Первый находится в точке x1, второй находится в точке x2, а третий — в точке x3. Муниципалитет города планирует
поставить новую 5G вышку, для чего ему нужно выбрать определенную оптимальную
точку. Какое минимальное суммарное расстояние от домов жителей до новой 5G вышки?
Гарантируется, что правильный ответ всегда является целым числом.
При решении задачи опишите свой метод сортировки вставками. Не используйте
встроенные методы сортировки.
Входные данные
В первой строке следует три различных целых числа x1, x2 и x3 (1 ≤ x1, x2, x3 ≤ 100)
— координаты первого, второго и третьего домов.
Выходные данные
Выведите единственное целое число — минимальное суммарное расстояние от домов
жителей до новой 5G вышки.
Примеры
Примечание
В первом тестовом примере оптимально установить вышку в точке 5. Таким образом,
расстояние до первого дома будет равно 4 (от точки 5 до точки 1), расстояние до третьего
- 4 (от точки 9 до точки 5), а до второго расстояние будет равно нулю, так как он
располагается в точке, где установлена вышка.
входные данные
1 5 9
выходные данные
8
N, s, i: Integer;
s1: real;
begin
readln(N); {общий ввод для всех задач}
if N < 0 then
writeln('Задача 1. N=', 0)
else writeln('Задача 1. N=', N + 4);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Задача 7. 1+2+3+…+N=', s);
write('Задача 9. Последовательность от N до 1 = ');
for i := n downto 1 do
write(i, ' ');
writeln();
s1 := 0;
for i := 1 to n do
s1 := s1 + i / 10;
writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
write('Задача 13. Последовательность квадратов от 1 до N = ');
for i := 1 to n do
write(i * i, ' ');
writeln();
write('Задача 14. Последовательность первых N нечетных чисел = ');
for i := 1 to n do
write(2 * i - 1, ' ');
writeln();
if N > 0 then
writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
s := 0;
for i := 1 to n do
if n mod i = 0 then
s := s + i;
writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.