Решить по python наш старый знакомый василий, по прежнему работает на почте начальником отдела автоматизации. под его руководством было разработано множество нововведений, обработку почты. теперь каждая посылка имеет свой уникальный номер, в котором закодированы важные данные о ней. василию пришла новая : доработать “сортировщик посылок” так, чтобы он считал количество посылок внутри россии, а также количество отправленных в европу. страна назначения закодирована в последних двух цифрах посылки. 77 - россия. цифры от 20 до 40 включительно - города европы. остальные коды нас не интересуют. напишите программное обеспечение, для реализации данной .

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию function createarray(length: integer): array of integer; begin       var a : = new integer[length];       for var i : = 0 to length - 1 do               a[i] : = random(0, 100); //      println(a);       result : = a; end; begin       var arrays : = new list< (char, array of integer)> ();       arrays.add(('a', createarray(;       arrays.add(('b', createarray(;       arrays.add(('c', createarray(;       arrays.add(('d', createarray(;       arrays.add(('e', createarray(;       arrays.add(('f', createarray(;       arrays.add(('g', createarray(;             foreach var a in arrays.orderby(a -> a.item2. do       begin               println(a.item1, a.item2.;       end; end.

{вам следовало бы более точно описать, что вам нужно. непонятно, что это за условие со следованием. в примере 21106 за цифрой 2 следует 11, но за 11 не следует ничего из перечисленного. ну или в нем 10 следует за 1, но тогда зачем условия следования для 10..12? + ничего не сказано про случайное распределение этих чисел. так-то программа, которая все время выводит "1", тоже подходит под эти условия } const   r: array[1..12,1..5] of integer = (   (4,5,7,9,10),    //1   (5,6,8,10,11),  //2   (6,7,9,11,12),  //3   (1,7,8,10,12),  //4   (1,2,8,9,11),    //5   (2,3,9,10,12),  //6   (1,3,4,10,11),  //7   (2,4,5,11,12),  //8   (1,3,5,6,12),    //9   (1,2,4,6,7),      //10   (2,3,5,7,8),      //11   (3,4,6,8,9)        //12   ); var i,k: integer;   begin   k : = 1 + random(12);   for i : = 1 to 1 + random(3) do       begin       write(k);       k : = r[k,1 + random(5)];       end; end.