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

Для вычисления можно составить программу на Pascal:

var n, n12, n34, i, j, x: integer;

begin

for n := 1000 to 999 do begin

n12 := (n div 1000) + (n div 100 mod 10);

n34 := (n div 10 mod 10) + (n mod 10);

i:=1;

while (n34 div 10)>0 do begin

i := i + 1;

n34 := n34 div 10;

end;

for j := 1 to i do

n12 := n12 * 10;

if n12 + n34 = 1915 then x := x + 1 else if  n12 + n34 = 10 then x := x + 1 else 

if n12 + n34 = 110 then x := x + 1 else if n12 + n34 = 1516 then x := x + 1 else

if n12 + n34 = 1211 then x := x + 1 else if n12 + n34 = 316 then x := x + 1 else

if n12 + n34 = 1519 then x := x + 1 else if n12 + n34 = 116 then x := x + 1 else

if n12 + n34 = 1515 then x := x + 1;

end;

writeln(x);

end.

Ответ (с выхода программы): 4.