Question

Требовалось написать программу, которая считывает натуральное число N, не превосходящее $10^9$, и выводит максимальную цифру этого числа. Программист написал программу неправильно.

Ниже приведена программа на Паскале (допускается использование программы на других языках):

```pascal
var N: longint; digit, max_digit: integer;
begin
  readln(N);
  max_digit := 10;
  while N >= 10 do
  begin
    digit := N mod 10;
    if max_digit < digit then
      max_digit := digit;
    N := N div 10;
  end;
  writeln(max_digit);
end.
```

**Последовательно выполните следующее:**

1. Напишите, что выведет эта программа при вводе числа 528.
2. Найдите все ошибки в этой программе (их может быть одна или несколько). Для каждой ошибки:
   - выпишите строку, в которой сделана ошибка;
   - укажите, как исправить ошибку, приведите правильный вариант строки.

Обратите внимание, что требуется найти ошибки в имеющейся программе, а не написать свою.

Accepted Answer

1. Программа выведет 10.
2. Ошибка 1: `max_digit := 10;` → `max_digit := 0;`
   Ошибка 2: `while N >= 10 do` → `while N > 0 do`

Answer

Идея решения: программа должна перебирать цифры числа, извлекая их через операцию модуля, и отслеживать максимальную найденную цифру. **Часть 1. Трассировка программы при вводе 528:** При N = 528: - Инициализация: `max_digit := 10` - Итерация 1: `digit := 528 mod 10 = 8`; условие `10 < 8` ложно, `max_digit` остаётся 10; `N := 52` - Итерация 2: `digit := 52 mod 10 = 2`; условие `10 < 2` ложно, `max_digit` остаётся 10; `N := 5` - Цикл завершается, так как `5 >= 10` ложно - Вывод: **10** **Часть 2. Анализ ошибок:** **Ошибка 1 — неверная инициализация переменной `max_digit`:** Строка с ошибкой: ```pascal max_digit := 10; ``` Исправленная строка: ```pascal max_digit := 0; ``` Обоснование: переменная `max_digit` должна инициализироваться значением, меньшим любой возможной цифры. Инициализация значением 10 (больше максимальной цифры 9) приводит к тому, что условие `max_digit < digit` никогда не выполняется, и максимум не обновляется. **Ошибка 2 — неверное условие цикла:** Строка с ошибкой: ```pascal while N >= 10 do ``` Исправленная строка: ```pascal while N > 0 do ``` Обоснование: цикл должен продолжаться, пока в числе остаются цифры для обработки. Условие `N >= 10` пропускает первую (самую старшую) цифру числа. Например, для числа 528 цикл завершится при N = 5, и цифра 5 не будет проверена. Правильное условие `N > 0` обеспечивает обработку всех цифр.

Задание №24ПрограммированиеЕГЭ по информатике