Формула Шеннона
I = log2 N , где I количество информации,
Обозначим количество полученных четверок - Ч, количество троек – Т, двоек– Д.
Т+Д=22
По условию задачи количество информации, содержащееся в сообщении «Абитуриент Иванов не провалился на экзамене», равно log2 3 бит.
Информационный объем сообщения «Абитуриент Сидоров получил тройку» равен двум битам.
.
Имеем систему из трех уравнений с тремя неизвестными.
Ч=2, Т=6, Д=22-6=16,
Всего 24.
Ответ: Количество абитуриентов, сдавших информатику, равно 24.
Var n:=6;
while n>0
begin
writeln("Я люблю Беларусь");
n:=n-1;
end;
алфавит состоит из 64 символов, значит, один символ алфавита имеет вес 6 бит (т. к. 64=2^6). тогда каждая строка содержит 64×6=384 бита, каждая страница содержит 384×32=12288 битов, а 10 страниц содержат 12288×10=122880 битов.
122880(битов):8=15360 байт.
ох уж не знаю, права я или нет :D
Но вот я бы сделала так)))
begin
readln(a); {Тут мы вводим число, которое будем проверять: делится оно на три или нет}
s := 0; {это у нас будет сумма цифр числа }
while a<>0 do
begin
b := a mod 10; {выделяем последнюю цифру}
s := s + b; {находим сумму}
a := a div 10 {переходим к следующей цифре}
end;
if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}
writeln('число делится на три')
else
writeln('число не делится на три')
end.
Решение во вложении... лишнее можете убрать сами))