Var a: array[1..10] of integer; i, max: integer; begin for i := 1 to 10 do begin read(a[i]); if (i = 1) or (a[i] > max) then max := a[i]; end; writeln('Max value = ', max) end.
280 в двоичной 100011000 в 8ричной 430 в 6ричной 1144 в 16ричной 118 28 в 2чной 11100 в 16ричной 1с в 6ричной 44 в 8ричной 34 180 в 2чной 10110100 в 8ричной 264 в 6ричной 500 в 16ричной b4 10 в 2чной 1010 в 8ричной 12 в 16ричной А в 6ричной 14
РАК = 1101010 Пытаемся расшифровать 1101010. Начинается с 11..., на 11 начинается только код Р. Оканчивается на ...0, что совпадает только с кодом буквы К. Остается 01, что расшифровывается однозначно как А. <u>Декодируется однозначно</u>.