Дано натуральное число N. Определить максимальную - вопрос №20713766 от наруоклоктлалтмтата 10.12.2020 13:23

Question

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

наруоклоктлалтмтата · Answer

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.