5 Мбайт,600 Кбайт,15 байт,100 бит
Var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
a[i]:=random(-10,10);
if not odd(i) then p*=a[i];
write(a[i]:3);
end;
writeln;
writeln(p);
<span>end.</span>
И = 00 Д=01 Т=10 О=11 Х=100
Т И Х О Х О Д
10 00 100 11 100 11 01 =1000 1001 1100 1101 =89СD (16cc)
Для начала представим 65712 в двоичной системе: 65712 = 65536 + 128 + 32 + 16 = 1 00000000 10110000₂; Значит, ответ - 3 байта.
C++ - CodeBlocks
Python - Wing IDE
ActionScript - Powerflasher
Java - Lemur
<span>HTML - WebStorm</span>