Question

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

1. Скла­ды­ва­ют­ся пер­вая и вто­рая, а также вто­рая и тре­тья цифры ис­ход­но­го числа.

2. По­лу­чен­ные два числа за­пи­сы­ва­ют­ся друг за дру­гом в по­ряд­ке убы­ва­ния (без раз­де­ли­те­лей).

При­мер. Ис­ход­ное число: 348. Суммы: 3 + 4 = 7; 4 + 8 = 12. Ре­зуль­тат: 127. Ука­жи­те наи­мень­шее число, в ре­зуль­та­те об­ра­бот­ки ко­то­ро­го ав­то­мат вы­даст число 1412.

Answer 1

Var
A,B:integer;
Begin
ReadLn(A);
B:=(A div 100)+((A div 10) mod 10);
A:=((A div 10) mod 10)+(A mod 10);
if A>=B then Write(A,B)
else if B>=A then Write(B,A)
End.