Var a,b,nod,k:integer;
begin
readln(a,b);
k:=0;
while (a<>0)and(b<>0) do
begin
if a>b then a:=a mod b else b:=b mod a;
k:=k+1;
end;
nod:=a+b;
writeln(nod,' ',k);
end.
Пример:
21 14
7 2
N = 2^I,
<span>8 = 2^3,
Ответ: 3 - количество информации которое несёт одна буква этого алфавита.</span>
4096 Кбайт / (1 * 1024 Кбайт / 8 сек) = 32 сек
№8
Определяем какое количество символов поместится на экране монитора:
80 х 25 = 2000 символов.
Так как в кодировке Unicode каждый символ кодируется 16 битами, то:
2000 х 16 = 32 000 бит
32 000 / 8 = 4000 байт.
№9
= 9000 байт = 9000 · 8 = 72 000 битов
Находим количество символов в сообщении
K = 6 · 40 · 60 = 14400 символов
I = K · i
откуда
i = I / K = 72000 / 14400 = 5 битов
N = 2i = 25 = 32 символа в алфавите языка
Ответ:
i = 5 битов
N = 32 символа