Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам.

1. Вычисляются два числа — сумма двух старших разрядов, а также сумма двух младших разрядов заданного числа.

2. Полученные два числа записываются друг за другом в порядке невозрастания (без разделителей).

Пример. Исходное число: 1277. Поразрядные суммы: 3, 14. Результат: 143.

Определите, сколько из приведённых ниже чисел могут получиться в результате работы автомата. В ответе запишите только количество чисел.

1616 169 163 1916 1619 316 916 116

3

Объяснение:

1616 : 7 и 7 следовательно 77

1916 : 10 и 7 следует 107

1619 : 7 и 10 следует 107

Остальные числа не являются четырехзначными

моя улица в солнечной системе. это земля. она находится третьей от солнца. 

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.