Определить, сколько раз в числе встречается его максимальная цифра - 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.
Объяснение кода листинга программы
- В начале объявляются переменные: c, m и n типа Char и Integer соответственно.
- Затем идет приглашение пользователю ввести число.
- В цикле while происходит чтение символа из стандартного ввода и проверка, равен ли этот символ переменной m. Если да, то увеличивается значение переменной n на единицу.
- Если символ больше переменной m, то переменные m и n сбрасываются на начальные значения, и цикл прерывается.
- По завершении цикла выводится сообщение о максимальной цифре и количестве ее вхождений.