Объем сообщения, содержащего 20 символов , составил100 бит . каков размер алфавита с которого записано сообщение

Обозначим количество способов попасть обратно в начальную вершину за n прыжков как a(n), а количество способов попасть в одну из двух других вершин как b(n) (очевидно, количество способов одинаково для обеих вершин). тогда: a(n) = 2*b(n-1) {находясь в одной из двух не-начальных вершин после n-1 прыжка, лягушка прыгает в начальную вершину} b(n) = a(n-1) + b(n-1) {лягушка прыгает либо из начальной, либо другой не-начальной} a(1) = 0 b(1) = 1 далее по формулам   a      b - n   0    1 - 1   2     1 - 2   2    3 - 3   6      5 - 4 10  11 - 5 22  21 - 6 42  43 - 7 86  85 - 8 170 9 ответ: 170

1. program Hello;

var i,j:integer; A:array [1..10, 1..10] of integer;

begin

 for i:=1 to 10 do for j:=1 to 10 do readln(A[i,j]);

 for i:=1 to 10 do for j:=1 to 10 do if A[i,j] mod 2 = 0 then writeln(A[i,j]);

end.

2. program Hello2;

var i,j,c:integer; A:array [1..3,1..3] of integer;

begin

c:=0;

 for i:=1 to 3 do for j:=1 to 10 do readln(A[i,j]);

 for i:=1 to 3 do for j:=1 to 10 do if A[i,j] mod 3 = 2 then c:=c+1;

 writeln(c);

end.

3. program Hello3;

var i,j,c:integer; A:array [1..3,1..3] of integer;

begin

c:=0;

 for i:=2 to 3 do for j:=1 to 10 do readln(A[i,j]);

 for i:=2 to 3 do for j:=1 to 10 do if A[i,j-1] + A[i,j] > 30 then c:=c+1;

 for i:=2 to 3 do for j:=1 to 10 do if A[i-1,j] + A[i,j] > 30 then c:=c+1;

end.