Для перевода целой части необходимо умножить разряд числа на соответствующую ему степень разряда.
25 = 21*2 + 20*5 = 4 + 5 = 9
Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда
48 = 2-1*4 + 2-2*8 = 4
В итоге получаем число 13
Если 128*128 - разрешение, 8кбайт - объём, то возможно N - глубина
8*1024(*8 бит в байте)/(128*128) = 4 бита
Var
a: array [1..10] of integer;
i, n: byte;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
n:=abs(a[i] mod 10);
if (n = 4) or (n = 8) then write(a[i]:4);
end;
readln;
<span>end.</span>
По моему скромному мнению это - АДЖЛДЛАЛ