18)-Г
20)-Б-но це не точно.
153₁₀ = 10011001₂
674₁₀ = 1010100010₂
29₁₀ = 11101₂
105₁₀ = 1101001₂
701₁₀ = 1010111101₂
1080₁₀ = <span>10000111000</span>₂
Существует формула, которая связывает между собой количество возможных информационных сообщений N и количество информации I, которое несет полученное сообщение:
N = 2 в степени I, следовательно
8 = 2 в степени 3, следовательно 3 - количество информации которое несёт одна буква этого алфавита.
Добавил ещё команду печати списка найденных троек, а не только их количества (строка writeln('(',a,', ',b,', ',c,') '); ).
Var A:array[1..6,1..6]of integer;
i,m:integer;
begin
for i:=1 to 6 do A[1,i]:=1;
for i:=1 to 6 do A[i,1]:=1;
for i:=2 to 6 do
for m:=2 to 6 do
A[i,m]:=A[i-1,m]+A[i,m-1];
for i:=1 to 6 do begin
for m:=1 to 6 do
write(A[i,m],' ');
writeln();
end;
<span>end.</span>