Паскаль. дана не пустая последовательность слов из строчных букв,между соседними словами пробел, за последним словом точка. напечатать в алфавитном порядке все звонкие согласные буквы, которые входят в каждое нечётное слово и в то же время не входят в каждое чётное слово. а ещё написать текст программы так, чтобы всё правильно работало если пробелов будет несколько. и если текст, который ввели не удолетворяет условиям, то должно выдасть ошибку. в тексте программы можно использовать подпрограммы, множества и т.д. но нельзя использовать модули.

Var s: string; m,mn,m1,m2: set of char; i,k,l: integer; begin writeln('введите последовательность слов: '); readln(s); m: =['б','б','в','в','г','г','д','д','ж','ж','з','з','й','й','л','л','м','м','н','н','р','р']; k: =0; for i: =1 to length(s) do   if not (s[i] in ['а'..'я','а'..'я',' ','.']) then k: =k+1; if k> 0 then writeln('ошибка ввода') else begin   while pos('  ',s)> 0 do delete(s,pos('  ',s),1);   if s[length(s)]='.' then s[length(s)]: =' ';   k: =0; mn: =[]; m1: =m; m2: =m;   for i: =1 to length(s) do   begin   mn: =mn+[s[i]];   if s[i]=' ' then     begin     k: =k+1;     if k mod 2=1 then m1: =m1*mn else m2: =m2*mn;     mn: =[];     end;   end;   mn: =m1-m2;   print(mn);       end; end. пример: введите последовательность слов: напечатать в    алфавитном порядке    звонкие буквы. {н} 

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var l: ='бвгджзйлмнр'.tolist;   var s: =readlnstring;   var p: =pos('.',s);   if p> 0 then s: =s[: p];   var aw: =s.towords;   var i: =1;   while i< =aw.length-1 do begin       var l1: =l.tolist;       foreach var c in l1 do           if not aw[i-1].contains(c) then l.remove(c)           else               if aw[i].contains(c) then l.remove(c);       i+=2       end;   if l.count> 0 then l.println(',')   else writeln('нет звонких согласных, удовлетворяющих условию') end. примеры бодро      шагаем  дрова несем              друзья  товарищи д вместе весело      шагать      по    просторам нет звонких согласных, удовлетворяющих условию     багряный    закат красный    восход й,н,р

решение: найдём информационный объём одного сигнала. 22  < 6 < 23.  значит один сигнал имеет  объём 3 бита. сигналов 100. 100*3 = 300 бит=300/8 байт=37,7байт=38байт.

верный ответ 2