Решение нужно подробное, а не просто правильный ответ. автомат получает на вход трёхзначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа − сумма старшего и среднего разрядов, а также сумма среднего и младшего разрядов заданного числа. 2. полученные два числа записываются друг за другом в порядке невозрастания (без разделителей). пример. исходное число: 277. поразрядные суммы: 9, 14. результат: 149. определите, сколько из ниже чисел могут получиться в результате работы автомата. 1212 129 123 1218 1812 312 912 112 в ответе запишите только количество чисел.

Const
    n = 25;

var
    a: array[1..n] of real;
    i, j: integer;
    min, max: real;
    sum, product, harmonic: real;

begin
    {ввод массива}
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        a[i] := random(40) - 20;
        write(a[i], ' ');
    end;
    writeln();
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        sum := sum + a[i];
    writeln('average = ', sum / n);
    
    {минимум и максимум}
    min := a[1];
    for i := 1 to n do
        if min > a[i] then min := a[i];
    writeln('min = ', min);
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
    writeln('sum = ', sum);
end.

//C++ - язык програмирования(не Pascal)

#include <iostream> //чтобы выводить на экран

 

 

int main() //тело программы

{

 int a,b; //те числа(объявление переменных)

std::cin>>a; //ввод первого числа

 std::cin>>b; //ввод второго числа

 std::cout<<((int)(a/b))<<std::endl; //(int)х - преобразовать х в целое число(отбросить //дробную   часть)

//std::cout<< - вывод

//std::endl - переход на следующию строчку

system("PAUSE"); //чтобы программа сразу не завершалась

 return 0;

}

//               // - коментарий

 

P.S ответь на моё сообщение.