Сообщение составлено с компьютера и содержит 121 символ определить информационный обьем сообщения

ответ:

нужно 121*8бит = 968бит

Program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 2 = 0             then                   writeln('число чётное')             else                   writeln('число не чётное');       readln; end. program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 3 = 0             then                   writeln('число делится на 3')             else                   writeln('число не делится на 3');       readln; end. program z; var       i: array[1..6] of byte;       x: byte; begin       for x: =1 to 6 do                     begin                   writeln('введите ', x,' цифру из 6 ');                   read(i[x]);             end;       if (i[1]+i[2]) = (i[4]+i[5]+i[6])             then                   writeln('билет счастливый')             else                   writeln('билет не счастливый');       readln; end.               program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 6 = 0             then                   writeln('число делится на 6')             else                   writeln('число не делится на 6');       readln; end. program z; var       a,b: integer; begin       writeln('введите число a'); readln(a);       writeln('введите число b'); readln(b);       if b mod a = 0             then writeln('число а делится нацело на число в')             else writeln('число а не делится нацело на число b');       readln; end.