Ввести 10-значное число. Определить максимальную цифру в записи числа и его количество вхождений в записи числа (например, в числе 44024 максимальная цифра 4 и количество его вхождений равно 3).
Какой язык програмирования?
pascal abc
5 минут и все и все будет
Ответ: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
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.