Delphi. Какое значение получит k?
var i, j, k: byte;
i:=1; k:=0;
while i<3 do begin
inc(i);
for j:=1 to i do inc(k);
end;

Question

Информатика: Delphi. Какое значение получит k? var i, j, k: byte; i:=1; k:=0; while i 3 do begin inc(i); for j:=1 to i do inc(k); end;

svyaznoi230113 · Accepted Answer

При кодировании первым для хранения номера одного инструмента требуется log(2)180 ≈ 8 бит.
Второй
X=2, количество инструментов в группе = 180/2 = 90
Объем памяти для кодирования = log(2)2+log(2)90 ≈ 1+7 = 8 бит.
X=3, количество инструментов в группе = 180/3 = 60
Объем памяти для кодирования = log(2)3+log(2)60 ≈ 2+6 = 8 бит.
X=4, количество инструментов в группе = 180/4 = 45
Объем памяти для кодирования = log(2)4+log(2)45 ≈ 2+6 = 8 бит.
X=5, количество инструментов в группе = 180/5 = 36
Объем памяти для кодирования = log(2)5+log(2)36 ≈ 3+6 = 9 бит.
ответ: X=5

Delphi. Какое значение получит k? var i, j, k: byte; i:=1; k:=0; while i<3 do begin inc(i); for j:=1 to i do inc(k); end;

MOGZ ответил

Delphi. Какое значение получит k?
var i, j, k: byte;
i:=1; k:=0;
while i<3 do begin
inc(i);
for j:=1 to i do inc(k);
end;