Вот посмотри, может сем uses crt; var s: string; function Kslov (str: string; c: char): integer; var i,k: integer; begin str:=str+' '; k:=0; for i:=1 to length(str)-1 do if (str[i+1] in [' ','.',',','-',':',';','!','?']) and (str[i]=c) then inc(k); Kslov:=k; end; procedure Del(var str: string); var i,j: integer; begin str:=str+' '; i:=length(str)+1; repeat dec(i); until(str[i+1]=' ') and (str[i]='о'); j:=i; repeat dec(i); until(str[i+1]=' ') or (i=1); delete(str,i,j-i); end; begin write('s='); readln(s); if Kslov (s,'о')>Kslov (s,'а') then Del(s); write('s=',s); End.
Для начала мы переведем Iобьем статьи в биты 2мбайта=2048кбайт=2,097,152байт=16,777,216 бит После этого переводим 2 байта в бит ;2байта=16 бит Потом нам надо найти какой обьем 1 страницы Для это надо "строки×символы×каждый символ сколько кодируется" Iстраница Iст.=32×64×16=32,768 бит Значит 32,768 бит это 1 страница Теперь найдем сколько страниц для этого мы Iобьем статьи разделим на 1 страницу 16,777,216÷32,768=512 значит будет 512 страниц Теперь отнимаем 2 страницы по условию задачи будет 512-2=510 страниц , после этого находим сколько 510 страниц будет в битах т.е Iобьем статьи после редактирования=510×32,768=16,711,680 бит А дальше переводим в байты и в кбайты 16,711,680÷8=2,088,960 байт и из байт в кбайты 2,088,960÷1024=2,040 кбайт ответ:информационный объём статьи 2,040 Кбайтах после редактирования. Вот и вся задача
101101,01₂=2D,4