Число с максимальным произведением цифр - Turbo Pascal
Формулировка задачи:
Найти на заданном отрезке [N;M] число с максимальным произведением цифр. Паскаль
Решение задачи: «Число с максимальным произведением цифр»
textual
Листинг программы
- max:=0;
- for i:=n to m do
- begin
- j:=i;
- p:=1;
- while j>0 do
- begin
- p:=p*(j mod 10);
- j:=j div 10;
- end;
- if p>max then
- begin
- max:=p;
- imax:=i;//число с макс. произв. цифр
- end;
- end;
Объяснение кода листинга программы
- Переменная
max
инициализируется значением 0. Эта переменная будет использоваться для хранения максимального произведения цифр числа. - Переменная
n
инициализируется значениемm
. Это значение будет использоваться в циклеfor
для перебора всех возможных чисел отn
доm
. - Переменная
m
инициализируется значениемn
. Это значение будет использоваться в циклеfor
для перебора всех возможных чисел отn
доm
. - Переменная
i
инициализируется значениемm
. Это значение будет использоваться в циклеfor
для перебора всех возможных чисел отn
доm
. - Переменная
j
инициализируется значениемi
. Это значение будет использоваться в циклеwhile
для вычисления произведения цифр числа. - Переменная
p
инициализируется значением 1. Это значение будет использоваться в циклеwhile
для вычисления произведения цифр числа. - Выражение
j mod 10
используется для получения последней цифры числаj
. - Выражение
j div 10
используется для получения десятичной части числаj
. - Если произведение цифр числа
p
больше текущего максимального значенияmax
, то значениеmax
обновляется. - Если произведение цифр числа
p
равно текущему максимальному значениюmax
, то значениеimax
обновляется на текущее значениеi
. - Цикл
while
завершается, когда значениеj
равно 0. - Цикл
for
завершается, когда значениеi
равноm
. - Код завершается без использования вложенных списков.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д