Var
n: integer;
a,b: integer;
begin
Readln(n);
a:= n mod 10;
b:=n div 10;
if a>4 then inc(b);
b:=b*10;
Writeln(b)
end.
512 граммов
1*2=2
2*2=4
4*2=8
8*2=16
16*2=32
32*2=64
64*2=128
128*2=256
256*2=512
Короче, смотри, в алфавите 32 буквы т.е. log(по основанию2) числа 32 будет равно 5, значит на одну букву алфавита приходится 5 бит, следователь ВАСЯ 4 буквы=> 5*4=20 бит
Количество информационных событий (сообщений) вычисляется как 2 в степени количества информации (в битах), которое получено в случае, когда произошло одно из этих событий. Т.е. 2 в 6 степени=64 возможных варианта.