Шахматный конь ходит буквой "г" - на две клетки по вертикали в любом направлении и на одну клетку по горизонтали или наоборот. даны две различные клетки шахматной доски, определите, может ли конь попасть с первой клетки на вторую одним ходом. поле (8х8)паскаль​

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! 1. современное решение begin   var (a,b,c): =readreal3;   if (a> b) and (b> c) then else (a,b,c): =(a*a,b*b,c*c);   println(a,b,c) end. пример 15.8 4.9 13 249.64 24.01 169 2. а так, увы, все еще учат писать во многих program toska;   var   a,b,c: real; begin   read(a,b,c);   if not ((a> b) and (b> c)) then begin       a: =a*a; b: =b*b; c: =c*c       end;   writeln(a,' ',b,' ',c) end.

Вэтой проге 1 и 2 program p1; uses crt; const n = 10; var a: array [1..n] of integer; i,p,c: integer; k,sr: real; begin read(c);   for i : = 1 to n do begin   a[i]: = random(21)-10;   write(a[i]: 4);   end;   writeln;   p: =1;   sr: =1;   for i: =1 to n do begin     if (a[i]mod 2 = 0) and (a[i]< > 0) then begin       p: =p*a[i];       end;       if c< =a[i] then begin       sr: =a[i]*sr;       k: =k+1;       end;             end;       sr: =sr/k;     writeln('произведение чётных : ',p);     writeln('среднее арифметическое ',sr: 5: 2); end. только всё равно проверь!