Определить, сколько раз в числе встречается его максимальная цифра - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

2. Использование цикла с предусловием Дано натуральное число. Определить, сколько раз в нем встречается его максимальная цифра (например, для числа 132 233 ответ равен 3, для числа 46 336 — 2, для числа 12 345 — 1).

Решение задачи: «Определить, сколько раз в числе встречается его максимальная цифра»

textual
Листинг программы
var
  c, m: Char;
  n: Integer;
begin
  Write('Введите число: ');
  while not EoLn do begin
    Read(c);
    if c=m then Inc(n)
    else if c>m then begin
      n:=1; m:=c;
    end;
  end;
  WriteLn('Максимальная цифра ',m,' встречается ',n,' раз');
end.

Объяснение кода листинга программы

  1. В начале объявляются переменные: c, m и n типа Char и Integer соответственно.
  2. Затем идет приглашение пользователю ввести число.
  3. В цикле while происходит чтение символа из стандартного ввода и проверка, равен ли этот символ переменной m. Если да, то увеличивается значение переменной n на единицу.
  4. Если символ больше переменной m, то переменные m и n сбрасываются на начальные значения, и цикл прерывается.
  5. По завершении цикла выводится сообщение о максимальной цифре и количестве ее вхождений.

Оцени полезность:

7   голосов , оценка 4.429 из 5
Похожие ответы