Автомат получает на вход четырёхзначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа — сумма первой и второй цифр и сумма третьей и четвёртой цифр заданного числа. 2. полученные два числа записываются друг за другом в порядке неубывания (без разделителей пример. исходное число: 2177. поразрядные суммы: 3, 14. результат: 314. определите, сколько из ниже чисел могут получиться в результате работы автомата. 1915 20 101 1213 1312 312 1519 112 1212 в ответе запишите только количество чисел.

Число 1915 не может быть ре­зуль­та­том ра­бо­ты автомата, по­сколь­ку число 19 не­воз­мож­но по­лу­чить сло­же­ни­ем двух цифр.
Число 20 не может быть ре­зуль­та­том ра­бо­ты автомата, по­сколь­ку по­лу­чен­ные два числа за­пи­сы­ва­ют­ся друг за дру­гом в по­ряд­ке не­убы­ва­ния.
Число 101 не может быть результатом работы автомата, поскольку первая его часть − 1, а вторая − 01 − это не число.
Число 1213 может быть ре­зуль­та­том ра­бо­ты автомата, в этом слу­чае ис­ход­ное число могло быть 6667.
Число 1312 не может быть ре­зуль­та­том ра­бо­ты автомата, по­сколь­ку по­лу­чен­ные два числа за­пи­сы­ва­ют­ся друг за дру­гом в по­ряд­ке не­убы­ва­ния.
Число 312 может быть ре­зуль­та­том ра­бо­ты автомата, в этом слу­чае ис­ход­ное число могло быть 2166.
Число 1519 не может быть ре­зуль­та­том ра­бо­ты автомата, по­сколь­ку числа за­пи­сы­ва­ют­ся в по­ряд­ке неубывания, а число 19 не­воз­мож­но по­лу­чить сло­же­ни­ем двух цифр.
Число 112 может быть ре­зуль­та­том ра­бо­ты автомата, в этом слу­чае ис­ход­ное число могло быть 1057.
Число 1212 может быть ре­зуль­та­том ра­бо­ты автомата, в этом слу­чае ис­ход­ное число могло быть 6666.

ответ: 4.

//PascalABC.NET 3.2 сборка 1318

Var
  n,i,j,resi,resj,flag:integer;
begin
flag:=0;
i:=1;
readln(n);
while power(i,3)<n do
  begin
    j:=1;
    while power(j,3)+power(i,3)<=n do
      begin
        if power(j,3)+power(i,3)=n then
        begin
          flag:=1;
          resi:=i;
          resj:=j;
          break;
        end;
        inc(j);
      end;
    if flag=1 then break;
    inc(i);
  end;
if flag=1 then writeln(resi,' ',resj,' ',resj,' ',resi) else writeln('impossible');
end.

Пример ввода:
1008                           //2^3+10^3
Пример вывода:
2 10 10 2

#include "stdafx.h"
#include <stdio.h>
#include <windows.h>

int main()  
  {
    SetConsoleCP(1251);      
    SetConsoleOutputCP(1251);  
 
int const n=3;
int mas[n][n];
int sum1, sum2;
bool magik;

for (int i=0; i<n; i++)
    for (int j=0; j<n; j++)
         {
           printf("mas[%d][%d] = ", i+1, j+1);
           scanf("%d",&mas[ i ][ j ]);
         }

printf("\nВведенная матрица:\n");
     for (int i=0; i<n; i++)
        {
             for (int j=0; j<n; j++)
                       {
                          printf("%d  ",mas[ i ][ j ]);
                       }
             printf("\n");
         }

sum1=0;
sum2=0;

for (int i = 0; i<n; i++)
     {
            sum1 += mas[ i ][ i ];
            sum2 += mas[ i ][ n-1-i ];
      }

printf("Сумма главной диагонали = %d\n", sum1);
printf("Сумма побочной диагонали = %d\n", sum2);

magik = true;
for (int i=0; i<n; i++)
    {
        if (sum1==sum2)
             {
                 sum2=0;
                 for (int j=0; j<n; j++)
                    {
                        sum2 += mas[ i ][ j ];
                     }
              } else  { magik=false; break; }
     }

if (magik==true)
     {
           for (int i=0; i<n; i++)    
               {
                   if (sum1==sum2)
                        {
                           sum2=0;
                           for (int j=0; j<n; j++)
                               {
                                   sum2 += mas[ j ][ i ];
                               }
                         }
                        else  { magik=false; break; }
                 }
       }

if (magik==true)
    printf("\nМатрица является магическим квадратом\n");  
else
    printf("\nМатрица не является магическим квадратом\n");

system("pause");
return 0;
}