Найдите длину отрезка,соединяющего точки A(1;2;3) и B(x;2;-3).
Если можно,то с объяснением.

Это этот вопрос? AB = BC = CD = AD = BM + MC = 4 + 9 = 13 - сторона квадрата =>
S (ABCD) = AB^2 = 13^2 = 169
AK = BM = CT = DP = 4 >
KB = MC = TD = PA = 9 =>
S (KBM) = S (MCT) = S (TDP) = S (PAK) = 1\2 * AK * AP = 1\2 * 4 * 9 = 18 - площадь одного треугольника =>
S (KMTP) = S (ABCD) - 4*S (KBM) = 169 - 4*18 = 97
или другой вариант решения:
треугольники KBM = MCT = TDP = PAK по двум сторонам и углу (90 град) между ними =>
KM = MT = TP = PK = V(KB^2 + BM^2) = V(9^2 + 4^2) = V97 - сторона внутреннего квадрата, а KMTP - квадрат, так как:
L BKM + L BMK = 90 град.
Треугольники равны => равны и их соответственные углы =>
L BKM = L CMT =>
L BKM + L CMT = 90 град =>
L KMT = 180 - (L BKM + L CMT) = 180 - 90 = 90 град. =>
S (KMTP) = KM^2 = (V97)^2 = 97

var b,i,z,k: integer;

a: array[1..10000] of integer;

begin

read(b);

z: =0;

k: =0;

while b> 0 do

begin

z: =z+1;

a[z]: = b mod 10;

b: =b div 10;

end;

for i: =2 to z-1 do

if a[i]=a[i-1] or a[i]=a[i+1] then

k: =1;

if k=1 then writeln (‘да’)

else writeln (‘нет’);

end.

второй способ:

var a,b,c: integer;

begin

read(a);

k: =0;

c: =10; // это должно быть обязательно число, но не цифра

while a > 0 do

begin

b: =a mod 10;

a: =a div 10;

if b=c then k: =1;

c: =b;

end;

if k=1 then writeln (‘да’)

else (‘нет’);

end.