Соринка из этого слова по буквам составить слово

Росинка, осинка,санки

Вначале я вам напишу простой перевод: 1 байт = 8 бит                     1 кбайт = 1024 байт 1 мбайт = 1024 кбайт 1 гб = 1024 мб первая - гбайт в бит: для того, чтобы перевести гбайты в биты, нужно количество гбайт умножить на  1024 ещё раз  умножить на 1024 и ещё раз  умножить на 1024 и потом умножить на 8. у нас получится ответ, который вы ищете, например: возьмем 1 гбайт и переведём его в биты, распишу по действиям: 1)1*1024  =  10242)1024*1024  =  10485763)1048576*1024  =  10737418244)1073741824*8  =  8589934592  ответ: 8589934592 бит.вторая - бит в байт: для того, чтобы перевести биты в байты, нужно количество битов поделить на 8, т.к 1 байт = 8 бит(об этом писал выше) и получим нужный ответ, например: опять возьмём 1 бит и переведём его в байты(напишу в нескольких видах, если будет непонятно): - первый вид 1/8  =  0,125 - второй вид1: 8 = 0,125 - третий видответ: 0,125 байт.вот так у нас получилось 2 ответа: первый - 8589934592 бит  и второй 0,125 байт.

Const  nx = 50; var  a,b,d: array[1..nx]of integer;   i,n,j,m,z,k,m1: integer; begin writeln('введи количество элементов массива');   read(n);   for i: = 1 to n do begin a[i]: = random(20)-5; write(a[i]: 3); end; writeln; for i: = 1 to n do begin z: = a[i]; k: =0; for j: = i+1 to n do  if a[i] = a[j] then k: = k +1; for j: = 1 to m do if a[i] = b[j] then k: = k +1; for j: = 1 to m1 do if a[i] = d[j] then k: = k +1; if k = 0 then begin  m: = m + 1; b[m] : = z; end else  begin  m1: = m1 + 1; d[m1] : = z; end; end; writeln('b'); for i: = 1 to m do  write(b[i]: 3); end.