Вдоль дороги расположены 5 домов. расстояние между каждыми двумя соседними домами равно 10 метров. возле каждого дома надо вырыть колодец, тобы сумма расстояний от колодца до домов была как можно меньшей. чемуравно это расстояние?

расстояние от первого дома до пятого -40м я бы вырыла колодец около 3 дома-середина. тогда от 1 до колодца 20м и 10м от второго до 3.-с одной стороны 30м и с другой стороны 30м

Оттуда: сложение двух чисел тривиально — достаточно поставить 1 между ними и стереть крайний правый символ у q. программа вычитания состоит из последовательного затирания крайних левых меток у q и правых у p: 1. 0 - стираем левый символ у q 2. → 3. ? 5, 4 4. stop - стоп если затерли q=0 5. ← 6. ? 7, 5 - цикл поиска p 7. 0 - стираем правый символ у p 8. → 9. ? 1, 8 - ищем q отметим, что номер команды перехода не указывается, если переход происходит на следующую по порядку строку (для наглядности текста) . в 6-ой строке возможно зацикливание, если q > p (вы можете добавить проверку сами) ****только вам нужно сдвинуться в начало строки и учесть пустую клетку-т. е. еще один проскок каретки

Var     n,m,d,k,max,maxk: integer; begin write('n = '); readln(n); write('m = '); readln(m); maxk: =0; for n: = m downto n do       begin       if n> 1 then k: =2       else k: =1;       d: =n div 2;       while d> 1 do             begin             if n mod d = 0 then k: =k+1;             d: =d-1             end;       if k> =maxk then             begin             maxk: =k;             max: =n;             end;       end; writeln('искомое число: ',max); writeln('количество делителей этого числа: ',maxk); end.