Писал на PascalABC.NET, но постарался как можно ближе к Turbo сделать. Если не заработает - пишите, исправим:)
var
f : text;
i : integer;
s, j: string;
begin
Assign(f, 'in.txt');
Reset(f);
while not EOF(f) do
begin
readln(f, s);
for i := 1 to length(s) do
if ((s[i] = 'a') and ((length(s) < length(j)) or (j = ''))) then
j := s;
end;
writeln(j);
end.
0=0+3
3=3+4
7=7+5
12=12+6
S=18
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 11 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 11 * 8 бит = 88.0 бит
1) Лицензионное ПО (стоит деньгу, но большинство такого ПО взламывается по мере выхода, хоть это и наказуемо)
2) Свободное ПО (ПО распространяемой бесплатно или условно бесплатно)
13 мб = 13631488 байт
128 мб = 0,13 гб
0,12 мб = 1006632,96 бит
0,01 гб = 10485,76 кб
<span>40960</span> бит = 5 кб