ИНФОРМАТИКИ В двоичной системе связи под воздействием шума каждый из

входных символов изменяет независимым образом свое значение с

вероятностью (1- q). Четыре статистически независимых сообщения

могут передаваться по системе с одинаковой вероятностью в виде кодовых

векторов x1={0,0}; x2= {0,1}; x3={1,0};x4= {1,1}. На выходе регистрируются

сигналы: y1={0,0};y2= {0,1}; y3={1,0};y4= {1,1}. Определить распределение

вероятностей входного алфавита Px и выходного алфавита Py .

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

алфавит из 33 букв это:

аа, бб, вв, гг, дд, ее, ёё, жж, зз, ии, , кк, лл, мм, нн, оо, пп, рр, сс, тт, уу, фф, хх, цц, чч, шш, щщ, ъъ, , , ээ, юю, яя

21,24,27,30,33,36,39,42,45,48

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.