дано натуральное число N.Составте программу, котора определяет, сколько раз в числе N содержится наибольшая цифра этого числа.
10-11 класс
|
var
max, c,t, count:integer;
begin
write('c = ');
readln(c);
t := c;
max := t mod 10;
while t <> 0 do
begin
if max < t mod 10 then
max := t mod 10;
t := t div 10;
end;
t := c;
count := 0;
while t <> 0 do
begin
if t mod 10 = max then
count := count + 1;
t := t div 10;
end;
writeln('Count = ', count);
readln
end.
Другие вопросы из категории
записываются в файл, сжатие данных не производится. Какое из приведенных ниже чисел наиболее близко к размеру полученного файла, выраженному в мегабайтах?
черно-белого изображение 120×150. Определить размер документа?
Читайте также
упорядоченной по возрастанию.
Программа получает на вход натуральное число , содержащее не более 100 цифр.
Программа должна вывести то же число , с точками между некоторыми цифрами этого числа.
Примеры входных и выходных данных
Ввод 1000 1.000
Вывод 12345678 12.345.678
произведение цифр этого числа.
Необходимо решение на языке Паскаль. Заранее спасибо!