Var
st:string;
i:byte;
begin
readln(st);//вводим строку
write('Числа имеющиеся в тексте: ');
for i:=1 to length(st) do
if (st[i] in ['1'..'9']) then write(st[i]); //если текущий символ принадлежит ко множеству чисел -то выводим его
end.
16 цветов (градаций серого) кодируются 4 битами, т.к. 16=2^4. Значит один пиксель (точка) весит 4 бита. Всего точек 100*100=10000. Значит информационный объём всего файла будет 10000*4=40000 бит. 40000/8= 5000 байт. 5000/1024~=4,88 Кбайт
Если перевести эти двоичные коды в десятичную систему счисления, то получится вот такой ряд чисел:
54 43 55 6149 <span>51
</span>