16 Мбайт=2^4*2^23 (бит)
8^x бит=2^3x (бит)
2^3x =2^27
3x=27
x=9
begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.
<span> Способность информации быть легко воспринимаемой зрительно?это-
</span>Наглядность
<span>файл объемом 500 Кбайт</span>
<span>общий объем информации в БИТАХ </span>
<span>OOИ =500 Кбайт =512000 байт =4096000 бит</span>
<span>скорость передачи v=<span>128000 бит/с</span></span>
<span><span>время передачи t= ООИ / v =4096000 бит / 128000 бит/с = 32 c</span></span>
<span><span>
</span></span>
<span><span>Ответ 32 секунды</span></span>
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>