Исходный объем: 1 Мб = 1024 Кб
Статья уменьшилась на 4 * 32 * 64 = 2^2 * 2^5 * 2^6 = 2^13 cимволов, и, поскольку на каждый символ по условию отводится 2 байта, её размер уменьшился на 2 * 2^13 байт = 2^14 байт = 2^4 Кб = 16 Кб
Объём отредактированной статьи 1024 Кб - 16 Кб = 1008 Кб
Шифровка в двоичную или каким-то конкретным методом(Хафман..)?
Program StrokABC;
uses Crt;
var d,n,i,k:integer;
s:string;
begin
clrscr;
writeln('Введите n:');
readln(n);
repeat
clrscr;
readln(s);
until length(s)=n;
d:= length(s);
for i:=1 to d do
if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k:=k+1;
writeln('строка abc входит в данную строку ',k,' раз');
readkey;
end.