//PascalABC.NET 3.1 сборка 1239
function BinToDec(bin: string): integer;
begin
var n := 0;
var p := 1;
for var i := length(bin) downto 1 do
begin
n += p * StrToInt(bin[i]);
p *= 2;
end;
Result := n;
end;
begin
var s := ReadlnString('s =');
writeln(BinToDec(s));
end.
24раза в сутки передвигается стрелка часовая
Для начала найдем вес одного символа. Разделим общий объем на количество символов в сообщении. Но для этого переведем в биты: 6*1024*8=49152 бит.
Вес одного символа равняется 49152/6144=8 бит
Воспользуемся формулой N=2^i, где i - вес одного символа, N - количество символов в алфавите.
N=2^8=256 символов.
1.) 1) В ОС Windows в имени файла запрещено использование следующих символов: \, /,:, *, ?, ", <, >, |. В Linux эти символы, кроме /, допустимы, хотя использовать их следует с осторожностью, так как некоторые из них могут иметь специальный смысл, а также из соображений совместимости с другими ОС;
2) В операционной системе Windows путь к файлу начинается с логического имени устройства внешней памяти; после имени каждого подкаталога ставится обратный слэш. В операционной системе Linux путь к файлу начинается с имени единого корневого каталога; после имени каждого подкаталога ставится прямой слэш.
