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

Question

Дано целое число, состоящее из разных цифр. Определить, какая из цифр заданного числа больше, т. е. найти наибольшую цифру числа.
ЧЕРЕЗ ПАСКАЛЬ!!!!

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger; n.ToString.Max.Println
end.

Пример
1507163
7

Answer 2

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.