Если нужна программа только под д),то вот:
Program n6;
var a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
<span>end.</span>
2 вопрос 3 способа 1 из а в з из а в б в д в е в з и внизу также
Program n1;
var n: integer;
begin
readln(n);
if n mod 12 = 0 then writeln('надо вынести ', n div 12, ' ведер')
else writeln('надо вынести ', (n div 12)+1, ' ведер');
end.
В 2-ной: 1000100001
в 8-ной: 1041
в 16-ной: 221
Клод Шэннон (1916—2001) называется «отцом теории информации<span>»</span>