Поскольку 2^5=32, значит такое сообщение содержит 5 бит информации
Ваш алгорим не оптимален, совершенно незачем делать "<em>for k:=100 to 1000000000 do"</em>, т.к. по условию необходимо проверить лишь трехзначные числа.
uses crt;
var a,b,k:integer;
begin
for k:=100 to 999 do
if k mod 20 =0
then begin
a:= k div 20;
b:= k div 10;
if ((a mod 10) + (a div 10)) = ((k mod 10) + (b mod 10) + (a div 10)) then writeln(k);
end;
end.
Ссылки должны быть относительными, т.к. аргумент должен изменяться при табулировании
Program DZ;
var n: longint;
begin
read (n);
if n mod 2 <> 0 then n:=n-12;
write (n);
end.
АБДИКАЦИЯ
АФРИКАНЦЫ
АЦТЕКСКИЙ
БЕЗВКУСИЕ
БЕЛОКУРЫЙ
БРУСКВИНА
БРУСКОВЫЙ
ВАЛЬКОВЫЙ
ВДОСКОНАЛ
ВЗЛУКНУТЬ
ВЗМОКНУТЬ
ВЗОТКНУТЬ
ВЗЫСКАНИЕ
ВОДОКАЧКА
ВОЕНКОМАТ
ВОЛОКОВОЙ
ВПРИКУСКУ
ВРАСКАЧКУ
ВРАСКИДКУ
ВТОЛКНУТЬ
ВЪЮРКНУТЬ
ВЫКУКСИТЬ
ВЫМОКАНИЕ
ВЫМОКНУТЬ
ВЬЮРКОВЫЕ
ГАЛАКТИКА
ГИНЕКОЛОГ
ДЕЛИКАТЕН
ДЕМИКОТОН
ДЕФЕКАЦИЯ
ДЕФЕКТНЫЙ
ДИДАКТИЗМ
<span />