Question

Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наибольшее значение.
Пример: N = 1808. Количество цифр с наибольшим значением равно двум (две цифры 8)

Answer 1

uses crt;
var n:longint;
    c,k,mx:byte;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
mx:=0;
k:=1;
while n>0 do
 begin
  c:=n mod 10;
  if c>mx then
   begin
    mx:=c;
    k:=1;
   end
  else if c=mx then k:=k+1;
  n:=n div 10;
 end;
write('Максимальная цифра ',mx,' количесиво=',k);
readln
end.