Цифра_0 сместиться на вектор (1,0) сместиться на вектор (0,-2) сместиться на вектор (-1,0) сместиться на вектор (0,2)
Цифра_6 сместиться на вектор (1,0) сместиться на вектор (0,-2) сместиться на вектор (-1,0) сместиться на вектор (0,2)
Цифра_7 сместиться на вектор (1,0) сместиться на вектор (-1,-1) сместиться на вектор (0,-1)
Цифра_8 Сместиться на вектор (1,0) Сместиться на вектор (0,-1) Сместиться на вектор (-1,0) Сместиться на вектор (0,1) поднять перо сместиться на вектор (0,-1) опустить перо Сместиться на вектор (1,0) Сместиться на вектор (0,-1) Сместиться на вектор (-1,0) Сместиться на вектор (0,1)
Цифра_9 Сместиться на вектор (1,0) Сместиться на вектор (0,-1) Сместиться на вектор (-1,0) Сместиться на вектор (0,1) Поднять перо Сместиться на вектор (1,-1) Опустить перо Сместиться на вектор (-1,-1)
Var i,j,k:longint; begin for i:=1 to 1000 do for j:=1 to 1000 do for k:=1 to 10000 do if sqr(i)+sqr(j)=sqr(K)then begin writeln(i,' ',j,' ',k); {вывожу все тройки, можно убрать} if i+j+k=1000 then begin writeln('! ',i,' ',j,' ',k); {нужная тройка} exit; {прерывание программы} end; end; end.
Відповідь на фото.