Question

Составьте программу к задаче. Дано натуральное число n. Требуется найти его наибольшую цифру
наименьшую цифру ​

Answer 1

var

 n, d, min, max: integer;

begin

 read(n);

 n := abs(n); // Если введено отрицательное

 min := 10;

 max := -1;

 while n > 0 do

 begin

   d := n mod 10;

   n := n div 10;

   if d > max then

     max := d

   else if d < min then

     min := d;

 end;

 write('min=', min, ', max=', max);

end.