задача 1
значит так: у племени 24 буквы и 8 цифр - всего 32 символа в их алфавите.
вес одного символа определяется из формулы: N=2^i (где i - вес одного символа алфавита. подставим 32 в эту формулу и получим
32=2^i представим 32 как двойку в 5 степени и получим верное равенство 2^5=2^i, отсюда i=5 бит
задача 2
запишем условие: N=64, K (количество символов в тексте)=20 найти I
решение: из формулы мощности алфавита найдем вес одного символа
64=2^i, 64 представим как двойку в 6 степени и получим верное равенство 2^6=2^i, отсюда i=6 бит
для вычисления информационного объема воспользуемся формулой I=K*i=20*6=120 бит это и есть ответ
задача3
запишем условие: N=16, I=1/16 Мб, К-?
решение: из формулы мощности алфавита найдем вес одного символа
16=2^i, 16 представим как двойку в 4 степени и получим верное равенство 2^4=2^i, отсюда i=4 бит
выразим информационный объем текста в битах. для этого 1/16Мб*1024*1024*8=524288 бит
для вычисления количества символов в тексте информационного объема воспользуемся формулой I=K*i отсюда К=I/i=522288/4= 131072 символа это и есть ответ
var
n, m, max, k, i: integer;
ar: array of integer;
function CountOfDel(n: integer): integer;
var
i, k: integer;
begin
if n>0 then
begin
for i := 1 to n do
if n mod i = 0 then inc(k);
end
else
for i:= n to -1 do
if n mod i = 0 then
inc(k);
CountofDel := k;
if n=0 then
CountofDel:=0;
end;
begin
readln(n, m);
k := 0;
max := 0;
for i := n to m do
begin
if CountOfDel(i)=0 then
begin
writeln('0');
exit;
end;
if CountOfDel(i) > max then
begin
k := 1;
setlength(ar, k);
ar[k - 1] := i;
max := CountOfDel(i);
end
else
if CountOfDel(i) = max then
begin
inc(k);
setlength(ar, k);
ar[k - 1] := i;
end;
end;
for i := 0 to k - 1 do
write(ar[i]:4);
end.
Пример ввода:
1 10
Пример вывода:
6 8 10