Автомат получает на вход четырёхзначное число. по этому числу строится новое число по следующим правилам.1. складываются первая и третья, а также вторая и четвёртая цифры исходного числа.2. полученные два числа записываются друг за другом в порядке возрастания (без разделителей).пример. исходное число: 3165. суммы: 3 + 6 = 9; 1 + 5 = 6. результат: 69.укажите минимальное число, в результате обработки которого, автомат выдаст число 58. только без жадных

просто нужно сделать так,чтобы в начале были единицы:

1147

1+4=5

1+7=8

58

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

1. делим a и b на 33.

2. округляем вверх (до следующего целого)

3. перемножаем округлённые числа.

4. делим на n.

5. округляем вверх.

формулой: x = [([a/33]+1)*( [b/33]+1) / n]   + 1

где [y] - целая часть числа y.