Question

Дано натуральное число. Найти максимальную цифру и проверить является ли она младшим разрядом.
Молю о помощи!! Даю 30​

Answer 1

var

 n, max, last: integer;

begin

 readln(n);

 max := 0;

 last := n mod 10;

 while n > 0 do

 begin

   if max < n mod 10 then

     max := n mod 10;

   n := n div 10;

 end;

 if last = max then

   writeln('Максимальная цифра находится в младшем разряде и равняется: ', max)

 else

   writeln('Условие не выполняется');

end.