Алфавит 64 символа
1 символ кодируется по формуле
=> 64=2^6
каждый символ 6 бит.
т.к текст 2000 символов то вес документа
2000х6 бит = 12000 бит
Переведем биты в байты 12000 бит-1500 байт (файл)
1500 байт/50 байт/c = 30 секунд!
Мёд-вкусный липкий ароматный густой
Диапозон A5:D7 содержит 12 ячеек.
Смотри во вложении.
Var f,f1:text;
s:string;
begin
assign(f,'f.txt');
reset(f);
assign(f1,'f1.txt');
rewrite(f1);
while not eof(f) do
begin
readln(f,s);
{есть функция:
function TrimRight(s: string): string;
Возвращает строку с удаленными конечными пробелами
Можно и так, как написано ниже}
while s[length(s)]=' ' do delete(s,length(s),1);
writeln(f1,s);
end;
close(f);
close(f1);
end.