Автомат обрабатывает натуральное число N (1≤N≤255) по следующему алгоритму: 1) Строится восьмибитная двоичная запись числа N.

2) Удаляется последняя цифра двоичной записи.

3) Запись «переворачивается», то есть читается справа налево.

4) Полученное число переводится в десятичную запись и выводится на экран.

Каково наибольшее число, меньшее 100, которое после обработки автоматом не изменится?
Желательно с пояснением, можно кратким.

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33

ответ 2)                                

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.