Автомат получает на вход трёхзначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа – сумма старшего и среднего разрядов, а также сумма среднего и младшего разрядов заданного числа. 2. полученные два числа записываются друг за другом в порядке невозрастания (без разделителей). пример. исходное число: 277. поразрядные суммы: 9, 14. результат: 149. определите, сколько из ниже чисел может получиться в результате работы автомата. 1515 159 153 1915 1519 315 915 115 в ответе запишите только количество чисел.

Числа 1616 нет в . мой ответ тоже 3. описанный автомат может выдать числа 1515  (787), 159 (963 или 690 или 781 или 872), 115 (923 или 832).

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию uses system.linq; begin       begin               writeln('i');               var n : = readinteger('n=');               writeln((1 + 1 + power(2, n - 1)) * n / 2);       end;             begin               writeln;               writeln('ii');               var n : = readinteger('n=');               writeln(n mod 11 = 0 ? 'yes' : 'no');                     end;             begin               writeln;               writeln('iii');               var a : = readarrinteger('документы', readinteger('n=';               writeln;                             while a.any() do               begin                       write(a[0], ' ');                       a.removeat(0);                       if not a.any then break;                                             write(a.last, ' ');                       a.removeat(a.count - 1);                       if not a.any then break;                                             var n : = 0;                       if a.count > 1 then n : = a.count div 2 - 1;                       write(a[n], ' ');                       a.removeat(n);               end;       end; end.