I = 1 байт.
тогда I = k*i или I = k/
k = 76
I(бит) = 76 * 8 = 608 бит
ответ: 2
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
Я не стану выбирать С++ - это все же язык для решения совсем иных задач.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(9, -50, 50);
a.Println;
a.Fill(t -> 1);
a.Println
end.
<h2>1 3 17 -6 -22 19 -1 -29 -20</h2><h2>1 1 1 1 1 1 1 1 1</h2>