Составте программу для исполнителя робот(можно использовать только такие слова: , команды: слева, справа, сверху, снизу свободно；слева, справа, сверху, снизу стена；клетка закрашена；клетка чистая) если что это 6 класс

Восьмеричной системе счисления есть цифры: 0, 1, 2, 3, 4, 5, 6, 7. сложение цифр можно рассмотреть на двоичном представлении цифр. так как 8 = 2^3, то двоичное представление восьмиричных чисел просто: код: n8 0 1 2 3 4 5 6 7 n2 000 001 010 011 100 101 110 111 ваш пример: сумма младших разрядов: 48+58=118 старшая единица переходит в сумму средних цифр (перенос). сумма старших разрядов: 18 + 18 = 28 т.е. при сложении средних чисел должно получиться: x8 + x8 + 18= 118, cтаршая единица результата переходит в сумму старших цифр исходного числа: 18 + 18 + 18 = 38. т.о. делаем заключение, что сумма средних цифр должна дать в результате 108. такой результат можно получить: 48 + 48 = 108. ответ: х = 48.

Const     n = 20; var     a: array[1..n] of integer;     i,m: integer; begin randomize; write('исходный массив: '); m: =1; for i: = 1 to n do       begin       a[i]: =random(n+1);       write(' ',a[i]);       if a[i] > a[m] then m: =i;       end; writeln; writeln('max = ',a[m],'[',m,']'); if m < n then     for i: = m to n-1 do             a[i]: =a[i+1]; m: =1; for i: = 1 to n-1 do       if a[i] < a[m] then m: =i; writeln('min = ',a[m],'[',m,']'); if m < n then     for i: = m to n-1 do             a[i]: =a[i+1]; write('после удаления max и min: '); for i: = 1 to n-2 do       write(' ',a[i]) end. const     n = 3;     m = 4; var     a,b,c: array[1..n,1..m] of shortint;     i,j,max,t: integer; begin randomize; writeln('матрица a: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(19)-9;               write(a[i,j]: 2,' ')               end;       writeln       end; writeln('матрица b: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               b[i,j]: =random(19)-9;               write(b[i,j]: 2,' ');               end;       writeln       end; writeln('a+b: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               c[i,j]: =a[i,j]+b[i,j];               write(c[i,j]: 3,' ');               end;       writeln       end; for i: = 1 to n do       begin       max: =i;       for j: = i+1 to m do               if c[1,j] > c[1,max] then max: =j;       for j: = 1 to n do               begin               t: =c[j,max];               c[j,max]: =c[j,i];               c[j,i]: =t               end;       end; writeln('матрица c: '); for i: = 1 to n do       begin       for j: = 1 to m do               write(c[i,j]: 3,' ');       writeln       end; readln end.