Установи соответствие Количество соединений: 3
PUBLIC domain
можно изменять, распространять и продавать без согласия автора

Произведения общественного достояния:

COPYRIGHT

ITS

считаются защищенными, и их использование или изменение должно быть согласовано с автором, продажа или копирование преследуется законом​

Программа на Python:

for base in range(2, 15):

   """ Вводимые данные """

   x = 511

   s = ""

   flag = True

   """ Перевод числа из 10 в base """

   while x:

       s += str(x % base)

       x //= base

   # На выводе обратный порядок переведённого числа, однако нам и не важно это

   """ Проверка кол-ва несовпадающих элементов """

   for el in s:

       if s.count(el) != 1:

           flag = False

   """ Вывод и остановка цикла"""

   if flag:

       print(f"{s} (base: {base})")

       break

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(15,-10,10); a.Println;
  Writeln('Элементов, больших первого, ',
      a.Where(x->x>a[0]).Count)
end.

Пример
1.32138581542363 -7.42206571503639 -8.75516477914302 6.17963798166236 -4.88329186797295 6.02313704603498 -5.68947898023272 -4.43705633023617 2.51164194779081 -3.27493339463833 8.22698325767507 -7.95714398750902 4.07602354608291 -2.3214872238792 4.90172023647545
Элементов, больших первого, 6