Скакой целью ввели кодировку unicode , которая позволяет закодировать 65536 различных символов

256 символов стандартного алфавита стало недостаточно (, и некоторые спец символы). для ютого ввели unicode, где на каждый символ уже отводится 2 байта, с него уже можно закодировать 65536 символов (и арабский и иероглифы и спецсимволы новые, почти все письменные языки и символы)

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   // заполним информацию случайным образом;   // если хорошистов в результате не окажется,   // просто перезапускаем   randomize;   var a: =matrrandom(13,10,4,5); // везде только 4 и 5   for var i: =1 to 20 do // раскидаем 20 троек       a[random(13),random(10)]: =3;   a.println(2); writeln;   // собственно, решение   var k: =0;   foreach var r in a.rows do       if r.all(x-> x< > 3) and not r.all(x-> x=5)  then k+=1;   writeln(k,' хорошистов') end. пример 5 5 4 4 4 5 3 3 4 4   5 4 4 4 3 4 5 5 4 5   5 5 5 3 5 4 4 5 5 4   3 5 4 3 4 4 5 5 5 3   5 3 4 4 5 4 4 5 5 4   3 5 5 5 5 4 4 4 4 3   4 4 5 3 5 4 4 5 4 5   4 5 4 4 4 4 4 4 5 4   3 5 3 4 4 4 4 4 5 3   5 5 4 5 4 4 4 5 4 5   4 5 4 5 4 5 3 4 5 5   4 5 4 4 4 4 5 4 4 5   4 3 5 4 4 4 5 5 3 5 3 хорошистов

2004         250     31     3     делим на 8 (дробная часть отбрасывается без округления) 250*8     31*8     3*8   0*8 2000       248     24     0             далее вычитаем из первой строки     4             2        7     3     цифры   4   2   7   3  переписываем в обратном порядке   получаем ответ 2004(10) =3724(8)