Создайте презентацию История развития компьютерной техники

Program pr;

uses crt;

Var a,k,k1:integer;

Begin

Writeln("Bведите а");

readin(a);

k1:=1;

k:=0

; While (a<>0) and (k1<1000) do

Вegin

if (a<0) and (a mod 2-0) and (abs (a)<-30000)

then k:%3Dk+1;

readln(a); end;

Writeln(k3},k);

readln;

end. 2) Program pr;

uses crt;

Var a,k,k1:integer;

Begin Writeln('Bведите а);

readln(a);

k1:=1

k:=0

While (a<>0) and (k1<1000) do

Begin if (a>0) and (a mod 24>0) and (abs(a)<-30000)

then k:1k+1;

k1:=k1+1

readln(a):

end

Writeln('k='k');

readin;

end

Для двух букв кодовые слова уже известны, осталось подобрать для оставшихся двух букв такие кодовые слова, которые будут являться кратчайшими и удовлетворять условию Фано.

Кодовые слова не могут начинаться с 0, поскольку 0 является кодовым словом для буквы А. Кодовым словом для буквы В будет являться 1100, кодовые слова 11, 110 и 111 использовать нельзя, поскольку не получится закодировать остальные буквы таким образом, чтобы возможная сумма длин кодовых слов для букв В, Г, Д и Е была наименьшей. Кодовым словом для буквы Г будет являться 1101, для буквы Д — 1110, а для буквы Е — 1111.

Таким образом, сумма кратчайших кодовых слов для букв В, Г, Д и е будет равняться 4 + 4 + 4 + 4 = 16.

ответ: 16.

Объяснение: