Запишите десятичное число 12,75 в системе счисления с основанием 2

Целая часть от деления                     остаток от деления 12 div 2 = 6                                         12 mod 2 = 0 6 div 2 = 3                                           6 mod 2 = 0 3 div 2 = 1                                           3 mod 2 = 1 1 div 2 = 0                                           1 mod 2 = 1 остаток от деления записываем в обратном порядке. получаем число в 2-ой системе счисления: 1100 12 = 1100|2 для перевода дробной части  числа последовательно умножаем дробную часть на основание 2. в результате каждый раз записываем целую часть произведения.0.75*2 = 1.5 (целая часть  1)0.5*2 = 1 (целая часть  1)0*2 = 0 (целая часть  0)0*2 = 0 (целая часть  0)получаем число в 2-ой системе счисления: 11000.75 = 1100|2в итоге получаем число: 1100.1100|2

Вpascalabc.net эта решается легко и быстро. в других версиях будет монстрик. // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! procedure makefile(path: string); // не относится к , создает файл text со 100 числами begin   writelines(path,seqrandom(100,-99,99).select(x-> x.tostring)) end; begin   makefile('myfile1.txt');   // теперь у нас есть текстовый файл из 100 случайных чисел   // собственно, решение   var n: =readinteger('укажите количество чисел: ');   var a: =readlines('myfile1.txt').take(n).toarray;   writeln('исходная последовательность'); a.println;   writeln('результирующая последовательность');   a: =a.orderby(x-> x.last).toarray; a.println;   writealllines('myfile2.txt',a); end. пример укажите количество чисел: 15 исходная последовательность 51 -9 17 -12 7 -15 -20 50 98 19 56 67 -57 -42 64 результирующая последовательность -20 50 51 -12 -42 64 -15 56 17 7 67 -57 98 -9 19