Question

Написать программу на Free Pascal! Дано натуральное число N. Вывести на экран все его цифры, определить самую большую из них и её номер в этом числе (отсчёт номеров цифр – от низших разрядов, справа налево), вывести на экран номер этой цифры. ​

Answer 1

Ответ:

Код программы на картинке

Объяснение:

Answer 2

Для решения этой задачи на Free Pascal, можно воспользоваться следующим кодом:

pascalCopy code
program MaxDigitInNumber;

var
  N, number, digit, maxDigit, maxDigitPosition, currentPosition: integer;

begin
  // Вводим число N
  Write('Введите натуральное число N: ');
  Readln(N);

  // Инициализируем переменные для поиска максимальной цифры
  maxDigit := -1; // Предполагаем, что максимальная цифра не может быть отрицательной, так что выбираем отрицательное число как начальное значение
  currentPosition := 1; // Начинаем с позиции единиц (правый конец числа)
  
  // Проверяем каждую цифру числа N
  while N > 0 do
  begin
    digit := N mod 10; // Получаем последнюю цифру числа N

    // Выводим текущую цифру на экран
    Write(digit, ' ');

    // Проверяем, является ли текущая цифра максимальной
    if digit > maxDigit then
    begin
      maxDigit := digit;
      maxDigitPosition := currentPosition;
    end;

    N := N div 10; // Удаляем последнюю цифру числа N
    currentPosition := currentPosition + 1; // Увеличиваем позицию на один разряд влево
  end;

  // Выводим информацию о максимальной цифре и её позиции
  Writeln;
  Writeln('Максимальная цифра: ', maxDigit);
  Writeln('Позиция максимальной цифры (отсчёт справа налево): ', maxDigitPosition);
end.

Программа позволяет ввести натуральное число N, затем выводит все его цифры на экран и находит самую большую цифру, а также выводит её позицию в числе (отсчет справа налево).