Автомат получает на вход четырёхзначное число (число не может начинаться с нуля). По этому числу строится новое число по следующим правилам.
1. Складываются отдельно первая и вторая, вторая и третья, третья и четвёртая цифры заданного числа.
2. Наименьшая из полученных трёх сумм удаляется.
3. Оставшиеся две суммы записываются друг за другом в порядке неубывания без разделителей.
Пример. Исходное число: 1984. Суммы: 1 + 9 = 10, 9 + 8 = 17, 8 + 4 = 12.
Укажите наибольшее число, при обработке которого автомат выдаёт
Примечание. Если меньшие из трех сумм равны, то отбрасывают одну из них.
Понятно, что 613 — это
Примечание 1. Число 9420 не подходит, так как необходимо наибольшее число.
Примечание 2. Для числа 9424 суммы
Ответ: 9424.
Приведём другое решение на языке Python.
for i in range(10000, 1000, -1):
s = str(i)
k1 = int(s[0]) + int(s[1])
k2 = int(s[1]) + int(s[2])
k3 = int(s[2]) + int(s[3])
first = str(k1 + k2 + k3 - max(k1, k2, k3) - min(k1, k2, k3))
second = str(max(k1, k2, k3))
s1 = first + second
if s1 == '613':
print(i)
break
Приведём решение Сергея Донец на PascalABC.NET:
uses School;
begin
var tt := 613;
for var i := 9999 downto 1000 do begin
var (a,b,c,d) := i.Digits;
var (s1, s2, s3) := [a+b, b+c, c+d].sorted;
var res := s2 < s3 ? s2.ToString+s3 : s3.ToString+s2;
if res.ToInteger = tt then begin
Print(i);
break;
end;
end;
end.