<em>var a, b, c, n :integer; </em>
<em>procedure max(a,b:integer; var c :integer); </em>
<em>begin </em>
<em> if a>b then c:=a else c:=b; </em>
<em>end;</em>
<em>begin</em>
<em> read (a,b,c);</em>
<em> max(a,b,a);</em>
<em> max(a,c,a);</em>
<em> write (a);</em>
<span><em>end.</em></span>
Ис+(пол)+(нить')+(ель)=Исполнитель
Repeat
<тело цикла>
until <условие>
это в паскале
Формула Шеннона
I = log2 N , где I количество информации,
Обозначим количество полученных четверок - Ч, количество троек – Т, двоек– Д.
Т+Д=22
По условию задачи количество информации, содержащееся в сообщении «Абитуриент Иванов не провалился на экзамене», равно log2 3 бит.
Информационный объем сообщения «Абитуриент Сидоров получил тройку» равен двум битам.
.
Имеем систему из трех уравнений с тремя неизвестными.
Ч=2, Т=6, Д=22-6=16,
Всего 24.
Ответ: Количество абитуриентов, сдавших информатику, равно 24.
While (условие) do
операция цикла