Паскаль
program sss;
var i,n:integer;
begin readln(n);
for i:=1 to n-1 do write(2*i-1,' ');
writeln(2*n-1)
end.
//PascalABC.NET
begin
var A := ArrRandom(10, 10, 35);
A.Println;
A.Sum.Println;
A.Where(x -> x > 20).Println.Count.Println;
A.Min.Println;
end.
нач
вещ а,н,клетки
а:=0.8
нц
вывод "Введите время Н "
ввод н
клетки:=а*н
ждать (862)
вывод "Клеток ",клетки,нс
ждать (2348)
кц
кон
360 бит=360:8 байт=
15 байт=15*8 бит =
70 Кбайт= 70*1024 байт=
9216 байт=9216:1024 Кбайт=
64 байт=64:1024 Кбайт=
12 Мбайт=12*1024*1024*8 бит=
1920 бит=1920:8 байт=
31 Кбайт=31*1024*8=
148480 Мбайт=148480:1024 Гбайт=
18 Гбайт=18*1024*1024 Кбайт=
Осталось только подсчитать(знак * означает умножение)
Всего получается 128 значений. По формуле N=2^i получается
128=2^7
Ответ: 7 бит