Дано число 243871 переведите число 243 в минимальную систему перевести,а 871 в двоичную
подробно расписав.

1. если число оканчивается на 6, то оно четное согласно признаку делимости на 2, поэтому проверка на четность не нужна. // pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n='),20,80); a.println;   var k: =a.where(t-> t mod 10=6).count;   if k> 0 then writeln(k)   else writeln('нет') end. пример n= 15 47 53 73 26 75 64 70 32 27 80 29 53 20 62 66 2 2. достаточно много раз нужно запускать , чтобы суметь получить случайную последовательность с парой одинаковых соседних // pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,0,100); a.println;   var k: =a.pairwise.where(t-> t[0]=t[1]).count;   if k> 0 then writeln(k)   else writeln('нет') end. пример 60 41 87 87 95 75 72 32 8 52 1