для того, чтобы сохранить 1000 цифр, надо ⇒ i = 10 бит
тогда для записи идентификатора требуется 4*10+12 = 52 бит ≈ 7 байт
для 20 команд 7*20 = 140 байт
144
162
2
//PascalABC.NET 3.1 сборка 1200
begin
var k := 0;
for var i := 132 to 188 do
begin
var n := i;
while n mod 2 = 0 do
n := n div 2;
while n mod 3 = 0 do
n := n div 3;
if n = 1 then begin
k += 1;
writeln(i);
end;
end;
writeln(k);
end.
Я хочу чтоб школа была стеклянной, а планшеты место тетрадей.