Ввести 10-значное число. Определить максимальную цифру в записи числа и его количество вхождений в записи числа (например, в числе 44024 максимальная цифра 4 и количество его вхождений равно 3).

Ответ:program сам придумай название;

var a,b,c,d,k:integer;

begin

readln(a);

b:=0;

c:=0;

d:=0;

k:=1;

for b:=0 to 10 do

begin

c:=a mod 10;

if (c<>0) then

if (c>d) then

d:=c else

if (c=d) then

k:=k+1;

a:=a div 10;

end;

writeln (d,' ',k);

end.