Материнская плата, центральный процессор, оперативная память, блок питания, жесткий диск, видеокарта, CD/DVD привод.
//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.
21.5(10) = 10101.10000(2) = 25.40000(8)
432.54(10) = 110110000.10001(2) = 660.42437(8)
678.333(10) = 1010100110.01011(2) = 1246.25240(8)
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
const
n = 2016;
var
A: array[1..n] of integer;
i, m, k: integer;
begin
for i := 1 to n do
begin
// A[i] := Random(10000);
readln(a[i]);
end;
m := 0;
for i := 1 to n do
if (a[i] mod 16 = 11) and (a[i] > m) then
m := a[i];
writeln(m);
end.
Для начала узнаем сколько символов в тексте 60*40*157=376800
Так как кодировка 64 битная каждий символ весит 64 бита 376800*64=24115200 бит
Переведём Биты в Байты 24115200/8=3014400
Теперь переведём Байты в Килобайты 3014400/1024=2943Килобайт и 768 байт
Переведём Килобайты в мегабайты 2943/1024=2 Мегабайта и 895 Килобайтов
Ответ: 2Мг 895Кб 768 байт в дробах выглядит так 2,874755859375
