Количество информации определяется по формуле: 2 ^ i = N, где i – количество информации. Значение N вычисляется по формуле:
N = (количество дней в месяце) * (количество месяцев в году) * (количество часов в сутках). Отсюда следует, что N = 31 * 12 * 24 (в октябре - 31 сутки, в одном году - 12 месяцев, в одних сутках - 24 часа).
Сначала вычислим 2 ^ i:
2 ^ i = 31 * 12 * 24 = 8928.
Затем найдем значение i:
i = log 2 (31 * 12 * 24) ≈ 13.12412131 бит информации. Это и будет ответом на поставленный вопрос.
Объяснение:
/// PascalABC.Net 3.4.2, 2053(11.05.19)
var
a, n: longint;
text: textfile;
function myMod(num, power, divider: longint): longint;
var
rest, i: longint;
begin
rest:=1;
divider := abs(divider);
for i := 1 to power do
begin
rest := rest * num;
rest := rest mod divider;
end;
myMod := rest;
end;
begin
assign(text, 'input.txt');
{rewrite(text);
writeln(text, 109);
close(text);}
reset(text);
read(text, a);
writeln('a=', a);
close(text);
n := 1;
repeat
n := n + 1;
until MyMod(n, n, a) = 0;
assign(text, 'output.txt');
rewrite(text);
writeln(text, n);
close(text);
{reset(text);
read(text, n);
writeln('n=', n);
close(text);}
end.
