Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

дано натуральное число N.Составте программу, котора определяет, сколько раз в числе N содержится наибольшая цифра этого числа.

10-11 класс

аЛиНкА1234567890124 05 февр. 2015 г., 21:01:06 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Coolkukarov
05 февр. 2015 г., 21:43:45 (9 лет назад)

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.
 

Ответить

Другие вопросы из категории

Производится звукозапись в режиме стерео с частотой дискретизации 48кГц и 16-битной глубиной кодирования. запись длится 2 минуты. ее результаты

записываются в файл, сжатие данных не производится. Какое из приведенных ниже чисел наиболее близко к размеру полученного файла, выраженному в мегабайтах?

Читайте также

Разделите точками цифры этого числа группами по три , начиная справа.

Программа получает на вход натуральное число , содержащее не более 100 цифр.
Программа должна вывести то же число , с точками между некоторыми цифрами этого числа.

Примеры входных и выходных данных

Ввод 1000 1.000
Вывод 12345678 12.345.678


Срочно! Дано трехзначное число. Если сумма цифр этого числа превышает 15, то вывести эту сумму. Иначе вывести

произведение цифр этого числа.

Необходимо решение на языке Паскаль. Заранее спасибо!



Вы находитесь на странице вопроса "дано натуральное число N.Составте программу, котора определяет, сколько раз в числе N содержится наибольшая цифра этого числа.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.