Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
101 байт
3 байта
25 бит
20 бит
Ответ:7)32110 = 1010000012
8)12210 = 13224
9)11310 = 1618
10)101012 = 2110
11)258 = 2110
12)CC16 = 12∙161+12∙160 = 192+12 = 20410
Объяснение: