Question

Дано натуральное число N. Определить максимальную цифру, используемую в записи числа и подсчитать, сколько раз она использована в записи числа N. Формат входных данных Дано число N (1 ≤ N ≤ 10100). Формат выходных данных В одну строку через пробел записываются два числа. Первое — максимальная цифра в записи числа, второе — количество таких цифр. Примеры входных и выходных файлов Входные данные Выходные данные 1000057 7 1 485647512899 9 2



быстро строчно! паскаль.​

Answer 1

var

 n,count,max:integer;

begin

 readln(n);

 max:=n mod 10; count:=1;

 n:=n div 10;

 repeat

   if n mod 10 > max then

     begin

       max:=n mod 10;

       count:=1;

       n:=n div 10;

     end

       else

         if n mod 10 = max then

           begin

             inc(count);

             n:=n div 10;

           end

             else  

               n:=n div 10;

 until n<=0;

 writeln(max,' ',count);

end.