Автомат получает на вход четырёхзначное натуральное число и строит новое число по следующему алгоритму:
1. вычисляются суммы первой и второй, второй и третьей и третьей и четвёртой цифр;
2. из полученных сумм отбрасывается наименьшая;
3. остальные суммы записываются в порядке невозрастания.
пример. исходное число: 1284. суммы: 1 + 2 = 3; 2 + 8 = 10; 8 + 4 = 12. отбрасывается наименьшая сумма 3. результат: 1210. укажите наименьшее число, при вводе которых автомат выдаёт значение 126.
[<EntryPoint>]
let main argv =
let generateTable n m =
Array2D.init n m (fun i j -> (i+1) * (j+1))
let printMatrix (matrix:int[,]) =
printf " "
for i = 0 to (Array2D.length1 matrix) - 1 do
printf "%4d " (i+1)
printf "\n"
printf " "
for i = 0 to (Array2D.length1 matrix) - 1 do
printf ""
printf "\n"
for j = 0 to (Array2D.length2 matrix) - 1 do
printf "%2d |" (j+1)
for i = 0 to (Array2D.length1 matrix) - 1 do
printf "%4d " matrix.[i, j]
printf "\n"
printf "\n"
let inputArray = generateTable 10 10
printMatrix inputArray
System.Console.ReadKey true |> ignore
0