Составить программу, которая создает текстовый файл, содержащий 12 чисел введенных с клавиатуры.

Begin   var n: integer;   var i: byte;   for i : = 1 to 12 do   begin     readln(n);     system.io.file.appendalltext('program1.log', n.;   end; end.

Переведём всё в двоичную систему счисления и уравняем длины записей: 5e_16 = 0101 1110_2 (каждая цифра в 16-ой сс соответствует четырёх цифрам в 2 сс) 111011_2 = 0011 1011_2 117_8 = 001 001 111_2 = 0100 1111_2 (каждая цифра 8сс соответствует трём цифрам в 2сс) 215_10 = 128 + 64 + 16 + 4 + 2 + 1 = 2^7 + 2^6 + 2^4 + 2^2 + 2^1 + 2^0 = 1101 0111_2. итак, надо сравнить 0101 1110, 0011 1011, 0100 1111, 1101 0111. 0011 1011 < 0100 1111 < 0101 1110 < 1101 0111 111011_2 < 117_8 < 5e_16 < 215_10

1.  kbra69kbk  1) меняем  "ra6" на "fl" получаем  kbfl9kbk   2)  "kb" на"12b" получаем 12bfl912bk  3) удаляем три последних  12bfl91 (ответ 1) 2.  в конце цепочки стоит одна из бусин р, n, т, o. (подходят все)      на первом – одна из бусин p, r, t, o, которой нет на третьем месте.( т.е. 1 и 3 не должны повториться)(подходят все, кроме второй)      на третьем месте – одна из бусин o, p, t, не стоящая в цепочке последней. (т.е. 3 и 4 не повторяются и не должны быть n) (подходят 1 и 4)ответ 1 и 4