Var a: integer;
begin
write ('Введите число: ');read (a);
if (a mod 2 = 0) then writeln ('Число делится на 2');
if (a mod 3 = 0) then writeln ('Число делится на 3');
if (a mod 5 = 0) then writeln ('Число делится на 5');
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно');
<span>end.</span>
Держи алгоритм, программу, как я понял уже дали
"В"скорее всего, так как тут говориться про природу!
Количество информации равно бинарному логарифму (т. е. по основании 2) количества равновероятных возможностей. В бассейне 20 дорожек, выбрана одна (неважно под каким номером) Тогда i = log2 20 (логарифм числа 20 по основанию 2) =(по формуле перехода логарифма к другому основанию) = lg20 / lg2 ≈ 4.32
Ответ 4.32 бит