Пять букв алфавита закодированы личной длины: a(011), b(10), с(100), d(110), e(01) определите, какой набор букв закодирован двоичной строкой 1000110110110, если известно, что все буквы в последовательности разные. 1)cbade 2)cadeb 3)caebd 4)cbaed подсказка! так как код буквы b является началом кода буквы c, а код буквы e-началом кода буквы а, то могут возникнуть сложности с декодированием двоичной строки.можно закодировать каждый из вариантов ответа.

100(c) 011(a) 01(e) 10(b) 110(d). ответ - 3.

Var     n, m, i, j  : longint;     matr: array of array of longint; begin read (n, m); setlength (matr, n);     for i: =0 to m-1 do     setlength (matr[i], m); for i: =0 to m-1 do matr[0, i]: =1; for i: =0 to n-1 do matr[i, 0]: =1;       for i: =1 to n-1 do       for j: =1 to m-1 do         matr [i, j]: =matr [i-1, j]+matr [i, j-1]; for i: =0 to n-1 do begin     for j: =0 to m-1 do write (matr[i, j]); writeln (); end; end.

//искать угол будем по теореме косинусов program n1; var x,y,z: real; function arccos(x : real) : real; {это понадобится для теор. кос.} begin arccos : = 2 * arctan(sqrt((1 - x) / (1 + ; end; procedure ygl( a,b,c: real); {процедура для удобства} var ga: real; begin ga: =arccos((sqr(a) + sqr(b) - sqr(c))/(2 * a* b)) * 180 / pi; {сама теор. кос.} writeln('угол с= ',ga: 5: 2); end; begin write('введите сторону а: '); readln(x); write('введите сторону b: '); readln(y); write('введите сторону c: '); readln(z); if(x> =y+z)or(y> =x+z)or(z> =x+y)then writeln('это не треугольник') else if x*x+y*y=z*z then {теорема пифагора} writeln('это прямоугольный треугольник') else if (x*x+y*y> z*z)and(x*x+z*z> y*y)and(z*z+y*y> x*x) then begin writeln('это остроугольный треугольник'); ygl(x,y,z); {вызываем процедуру} end else begin writeln('это тупоугольный треугольник'); ygl(x,y,z); end; end.