Дано натуральное число N. Определить максимальную цифру, используемую в записи числа и подсчитать, сколько раз она использована в записи числа N. Формат входных данных Дано число N (1 ≤ N ≤ 10100). Формат выходных данных В одну строку через пробел записываются два числа. Первое — максимальная цифра в записи числа, второе — количество таких цифр. Примеры входных и выходных файлов Входные данные Выходные данные 1000057 7 1 485647512899 9 2
быстро строчно! паскаль.
gdugeuuu1111:
осталост 10 минут
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад