Пароль к сейфу состоит из букв латинского алфавита, расположенных в порядке возрастания чисел, соответствующих этим буквам: а=10111 (в двоичной системе ) в=111 (в восьмеричной системе), d=1b (в шестнадцатиричной системе восстановите пароль. распишите полностью, что да как

Проще всего перевести все в двоичную систему a = 10111(2), b = 111(8) = 001001001(2), d = 1b = 00011011(2) a < d < b код: adb

Program first; uses crt; const n=1000; var   a: array[0..n] of integer;   i,k,z,s,r,p: integer;   begin   clrscr;   randomize;   print('введите количество элементов массива: '); readln(r);   println('значение элементов массива');   for i: =1 to r do begin       a[i]: =random(10)-3;       write(a[i]: 3)       end;   println();     { начало блока вычисления s - суммы отрицательных элементов       и k - количество положительных, меньших заданного z (число "а") }   print('введите число а: '); read(z);   s: =0; k: =0;   for i: =1 to r do begin       if a[i] < 0 then s: =s+a[i];       if (a[i] > 0) and (a[i] < z ) then k: =k+1       end;   writeln('сумма отрицательных элементов ',s);   writeln('количество положительных элементов, меньших заданного ',k);   { конец блока }     { начало блока нахождения номера последней пары       соседних элементов с разными знаками }   p: =1;   for i : = 1 to n-1 do if a[i]*a[i+1]< 0 then p : = i;   if p> 0 then       writeln('номер последней пары соседних элементов с разными знаками: ', p)   else       writeln('массив не содержит элементов с разными знаками');   { конец блока }   end. пример введите количество элементов массива: 12 значение элементов массива   5  5 -1 -2 -1  3  0 -3  4 -1  6  5 введите число а: 6 сумма отрицательных элементов -8 количество положительных элементов, меньших заданного 5 номер последней пары соседних элементов с разными знаками: 10

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var s: =readlnstring;   writeln('количество слов в строке равно ',s.towords.count);   writeln('количество цифр в строке равно ',           s.where(c-> c in ['0'..'9']).count) end. пример в россии день победы празднуется 9 мая начиная от 1945 года количество слов в строке равно 11 количество цифр в строке равно 5 2. текстовый файл может содержать столько текстовых строк, сколько в классе учеников. каждый ученик должен прочитать и обработать строку из файла, соответствующую своему порядковому номеру в журнале.