Определим объем памяти на 1 лыжника. Лыжников 240, т.е. K=240. 240 – не степень числа 2. Найдем число, большее 240 и являющееся степенью 2.
1.
Var m : array[1..9] of Real;
i : Integer;
Begin
For i:=1 to 9 do Readln(m[i]);
For i:=9 downto 1 do Write(m[i],' ');
Writeln;
end.
2.
Var m : array[1..20] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to 20 do
Begin
m[i]:=-9+Random(29);
If m[i]<0 then m[i]:=-m[i];
end;
For i:=1 to 20 do Write(m[i],' ');
Writeln;
end.
Поле имен, ряд формул, текущая клетка
знаю только первых два: 1024*17=17408
1024*1024*2=2097152
1. 16=2 степени i
2 в степени 4=2 в степени i
i=4
значит, 1 буква несет 4 бита информации
ответ: 4 * 16 = 64 бита