Автомат получает на вход четырёхзначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа – сумма четных цифр и сумма нечетных цифр заданного числа. 2. полученные два числа записываются друг за другом в порядке невозрастания (без разделителей пример. исходное число: 2177. сумма четных цифр - 2, сумма нечетных цифр - 15. результат: 152. определите, сколько из ниже чисел могут получиться в результате работы автомата. 236 1313 270 1114 1614 187 370 294 40 в ответе запишите только количество чисел.

Как могут соотноситься между собой числа: (a) одно число 0, второе - нечетное в промежутке [1, 27] (получается, если в исходном числе одна четная цифра - 0 - и три нечетных, или три нуля и одно нечетное) (b) одно число 0, второе - четное в промежутке [2, 36] (получается, если в исходном числе нет нечетных цифр или нет четных цифр или два нуля и две нечетные цифры) (с) одно число четное в промежутке [2, 8], второе нечетное в промежутке [3, 27] (получается, если одна чётная цифра и три нечётных) (d) одно число четное в промежутке [2, 24], второе нечетное в промежутке [1, 9] (получается, если одна нечётная  цифра и три четных) (e) оба числа четные, одно в промежутке [2, 18], второе в промежутке [2, 16] (получается, если две чётных цифры  и две нечётных) дальше каждое число (кроме 370) разбито на 2, в скобках стоит тот случай, под который подпадает число 236: 23, 6 (c, +) 1313: 13, 13 270: 27, 0 (a, +) 1114: 11, 14 (< , -) 1614: 16, 14 (e, +) 187: 18, 7  (c, +) 370: - 294: 29, 4 40: 4, 0 (b, +) ответ. 5 чисел

//pascal abc.net v3.1 сборка 1172 var   na, nb, nc: integer; function minim(ar: array of real; n: integer): real; var   i: integer;   min: real; begin   min : = maxreal;   for i : = 0 to n - 1 do //динамические массивы индексируются с 0       if min > ar[i] then min : = ar[i];   minim : = min; end; begin   randomize;   write('na: '); readln(na); //ввод размерностей   write('nb: '); readln(nb);   write('nc: '); readln(nc);   var a : = arrrandomreal(na, 1, na); //инициализация динамических массивов   var b : = arrrandomreal(nb, 1, nb);   var c : = arrrandomreal(nc, 1, nc);   a.println(' ');   writeln('min: ', minim(a, na));   b.println(' ');   writeln('min: ', minim(b, nb));   c.println(' ');   writeln('min: ', minim(c, nc)); end. пример ввода: na: 3 nb: 4 nc: 5 пример вывода: 2.45183664907321 2.12786289357015 2.8286734511278 min: 2.12786289357015 3.47355249453036 1.03827733129183 2.42042394141686 2.17556424353996 min: 1.03827733129183 3.9204495134393 3.64103751938838 3.57791954771519 4.31033914690387 4.13624760282051 min: 3.57791954771519

//pascal abc.net v3.1 сборка 1172 //1 var   i,x,max,n,maxi: integer; begin max: =-32768; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n> =max then       begin         max: =n;         maxi: =i;       end;   end; writeln(maxi); end. пример ввода: 3 1 2 2 пример вывода: 3 //2 var   i,x,min,n,mini: integer; begin min: =32767; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n< min then       begin         min: =n;         mini: =i;       end;   end; writeln(mini); end. пример ввода: 3 1 1 2 пример вывода: 1