Номер называется "Скан-код"
Мы находимся в точке по горизонтали А и по вертикали А. Нам нужно попасть в точку F. Смотрим напротив строки А по горизонтали и вертикали куда можно идти, есть три варианта: сразу в F, в точку В и в точку С. Если идти сразу в F то пройденный путь составит 18. Но нам нужен кратчайший путь поэтому ищем где цифра поменьше например С. Идём в С и пройденный путь уже составляет 3, теперь смотрим по вертикали (т.к по горизонтали мы можем пойти только в точку F но нам нужен наименьший путь) куда лучше пойти и где значение меньше и это D т.к там значение наименьшее - 1.Идём в эту точку и путь уже равен 3+1=4, смотрим по горизонтали напротив D и видим что сразу можем попасть в точку F. Доходим до конца и путь составляет 4+3=7 - это кратчайший путь.
Лучше советую смотреть сразу минимальное значение в столбике F и от неё смотреть путь до точки А.
Либо рисовать графы как в комментарии выше, что скорее гораздо понятнее но дольше
37 div 10 = 3
58 div 10 = 5
125 div 10 = 12
234 div 10 = 23
873 div 100 = 8
3985 div 1000 = 3
37 mod 10 = 7
58 mod 10 = 8
125 mod 10 = 5
234 mod 10 = 4
873 mod 100 = 73
3985 mod 1000 = 985
Program E08;
uses crt;
var
X: array[-1000..1000] of integer;
S,i,k: integer;
begin
clrscr;
writeln('Введите массив X:');
for i:=1 to 10 do
begin
write('X[',i:2,'] ==> ');
readln(X[i])
end;
for i:=1 to 10 do
write(X[i],' ');
writeln;
K:=0;
for i:=1 to 10 do
begin
S:=X[i] mod 3;
if S = 0 then
K:=K+1
end;
writeln('Ответ: ',K)
<span>end.</span>
Begin;
writeln('Площадь поверхности Земли=<span>510100000 км.^2);
writeln('Объём Земли=</span><span>1083 млрд. куб. км.');
writeln('Плотность Земли=</span><span>5,51 г/см^3');
end.</span>
