Число с максимальным произведением цифр - Turbo Pascal

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

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

Найти на заданном отрезке [N;M] число с максимальным произведением цифр. Паскаль

Решение задачи: «Число с максимальным произведением цифр»

textual
Листинг программы
  1. max:=0;
  2. for i:=n to m do
  3.  begin
  4.   j:=i;
  5.   p:=1;
  6.   while j>0 do
  7.    begin
  8.     p:=p*(j mod 10);
  9.     j:=j div 10;
  10.   end;
  11.  if p>max then
  12.   begin
  13.    max:=p;
  14.    imax:=i;//число с макс. произв. цифр
  15.   end;
  16.  end;

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

  1. Переменная max инициализируется значением 0. Эта переменная будет использоваться для хранения максимального произведения цифр числа.
  2. Переменная n инициализируется значением m. Это значение будет использоваться в цикле for для перебора всех возможных чисел от n до m.
  3. Переменная m инициализируется значением n. Это значение будет использоваться в цикле for для перебора всех возможных чисел от n до m.
  4. Переменная i инициализируется значением m. Это значение будет использоваться в цикле for для перебора всех возможных чисел от n до m.
  5. Переменная j инициализируется значением i. Это значение будет использоваться в цикле while для вычисления произведения цифр числа.
  6. Переменная p инициализируется значением 1. Это значение будет использоваться в цикле while для вычисления произведения цифр числа.
  7. Выражение j mod 10 используется для получения последней цифры числа j.
  8. Выражение j div 10 используется для получения десятичной части числа j.
  9. Если произведение цифр числа p больше текущего максимального значения max, то значение max обновляется.
  10. Если произведение цифр числа p равно текущему максимальному значению max, то значение imax обновляется на текущее значение i.
  11. Цикл while завершается, когда значение j равно 0.
  12. Цикл for завершается, когда значение i равно m.
  13. Код завершается без использования вложенных списков.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

11   голосов , оценка 4.273 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы