Дано целое число, состоящее из разных цифр. определить, какая из цифр заданного числа больше, т. е. найти наибольшую цифру числа. через

Var num, mnum: integer; begin mnum : = 0; readln(num); while num < > 0 do begin if abs(num mod 10) > mnun then mnum : = abs(num mod 10); num : = num div 10; end; writeln(mnum); end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var n: =readinteger; n.tostring.max.println end. пример 1507163 7

(1 + 2):   3   = 1

1 * 2 + 3 - 4 =1

((1+2) : 3 + 4) : 5 =1

1 * 2 - 3 : (4 +5- 6) =1

1 * 2 + (3 + 4   +5) - (6 + 7) =1

((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1