Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>
Ответ не зависит от номера вытащенного шара. Так как вытаскивание любого из 32 шаров - равновероятное событие. Тогда получаем следующее:
N = 2^i, где N = 32, следовательно количество информации i = 5 бит
Ответ: 5 бит
В левой строке находится команда
Const
n = 2016;
var
a: array[1..n] of integer;
i, m, k: integer;
begin
randomize;
m := 1;
for i := 1 to n do
begin
a[i] := random(1000);
m := m * a[i] mod 2;
// write(a[i], ' ');
end;
k := -1;
for i := 1 to n do
if (a[i] mod 2 = m) and (a[i] > k) then
k := a[i];
writeln(k);
end.
ответ примерно будет одинаковым, так как очень много цифр в массиве
Х - длина катета напротив угла в 30 градусов
2х - длина второго катета
- длина гипотенузы
- периметр