Дано натуральное число определите сколько раз в нем встречается максимальная цифра ( пример 133 ответ 2 , 228 ответ 1 )
помогите очень нужно

В смысле давать нарушение? Это я должна делать? Или администратору писать?

Обычно тот, кто отменяет неверно данное нарушение сообщает через ЛС Администратору. Но это Ваше право, а не обязанность.

Последний раз, если помню, штраф был -500 баллов ))

Хорошо. Я поняла. Я поискала, когда отменяла неверное решение - отметку о предупреждении не нашла, поэтому решила, что мне не положено. Я напишу администратору

Я написала администратору. Ситуацию обрисовала подробно

var  n:longint;  i,d,dmax:byte;  a:array[0..9] of byte;begin  Writeln('Введите натуральное число (1..2147483647): ');  Read(n);  for i:=0 to 9 do a[i]:=0;  dmax:=0;  while n>0 do begin    d:=n mod 10;    if dmax<d then dmax:=d;    Inc(a[d]);    n:=n div 10  end;  Writeln('Максимальная цифра ',dmax,' встречается ',a[dmax],' раз(а)')end.Тестовое решение:Введите натуральное число (1..2147483647): 235636634Максимальная цифра 6 встречается 3 раз(а)