Какое из перечисленных слов может быть зашифровано в виде кода #[email protected]$%#& ? 1) монитор; 2) плоттер; 3) принтер; 4) колонки.

Это действительно колонки, т.к. только в этом слове  1  и 6, 2 и 4 буквы

Колонки так как 2 и 4 буквы

// pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! begin   var sg: =['а','е','и','о','у','ы','э','ю','я'];   var a: =readlnstring('вводите текст: ').towords(',','.');   var r: set of char=[];   for var i: =0 to a.length-1 do begin       var b: =a[i].where(c-> c in sg).groupby(t-> t).select(t-> (t.key,t.count));       foreach var t in b do           if t[1]> 2 then r+=[t[0]];       end;   var s: ='';   foreach var c in r do s+=c;   s.orderby(t-> t).println(',') end. пример вводите текст:   дает,корова,молоко,а,жираф,это,,животное. е,о

// pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! begin   var x: =readarrinteger(readinteger('n='));   var p: =x.findindex(t-> t> 10);   if p=-1 then writeln('нет элементов, больших 10')   else begin       write('ср.арифм.значений до ',x[p],' равно ');       if p=0 then writeln('0')       else writeln(x[: p].average);       var s: =x[p+1: ].where(t-> t< 0);       write('ср.арифм. отрицательных значений после ',x[p],' равно ');       if s.count=0 then writeln('0')       else writeln(s.average)       end end. пример n= 12 4 1 -13 15 13 0 9 5 -12 9 4 -11 ср.арифм.значений до 15 равно -2.66666666666667 ср.арифм. отрицательных значений после 15 равно -11.5