Program Digit; Var a, a1, a2, a3: Integer; Label Start; Begin Start: WriteLn('Введите трехзначное число'); ReadLn(a); If (a < 100) Or (a > 999) Then Begin WriteLn('Вы ввели не трехзначное число'); Goto Start; End; a1 := a div 100; a2 := (a - a1 * 100) div 10; a3 := a - a1 * 100 - a2 * 10; If a1 > a3 ThenWriteLn('Первая цифра больше последней') Else Writeln('Последняя цифра больше первой'); If a1 > a2 Then WriteLn('Первая цифра больше второй') Else Writeln('Вторая цифра больше первой'); If a2 > a3 Then WriteLn('Вторая цифра больше последней') Else Writeln('Последняя цифра больше второй'); ReadLn; End.
Построив дерево, мы видим, что здесь очень много алгоритмов(направо это 2, а налево - это 1). Вот один из алгоритмов. 0 вправо 5 5 вправо 7 12 вправо 5 17 вправо 7 24 вправо 5 29 или в цифрах 1221
ответ в фото..............