Question

дано целое число N найти самую максимальную цифру этого числа

Answer 1

var n,x,max:integer;
begin
readln(n);
while n>0 do
  begin
  x:=n mod 10;
  if x>max then max:=x;
  n:=n div 10;
  end;
writeln('Максимальная цифра: ',max);
end.