<span>Так как 2048 Кбайт = 2 Мб, то
700 </span>Мб /2 Мб = 350
512*2+64*0+8*1+1*4 = 1036
343*2+49*0+7*1+1*4 = 697
216*2+36*0+6*1+1*4 = 442
125*2+25*0+5*1+1*4 = 259
PascalABC.NET
Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом
const c = ' ';
var
s : string;
k,p : integer;
begin
writeln ('Введите строку');
readln (s);
k := -1;
p := 1;
if (s <> '') and (s <> ' ') then
begin
while p <> 0 do
begin
k := k +1;
p := PosEx (c,s,p+1);
end;
writeln (k+1,' word')
end
else
writeln ('error string');<span>
end.</span>
I=ki
i=I/k=1024/256=4 бита на 1 знак
N=2^i=2⁴=16 количество знаков в алфавите