Question

На обработку поступает положительное целое число, не превышающее $10^9$ . Требуется вывести сумму цифр этого числа, которые меньше 7. Если в числе нет цифр, меньших 7, нужно вывести 0. Ниже приведена неправильная программа на пяти языках программирования.

Бейсик	Python
DIM N, DIGIT, SUM AS LONG INPUT N SUM = 0 WHILE N > 0 DIGIT = N MOD 10 IF DIGIT < 7 THEN SUM = SUM + 1 END IF N = N \ 10 WEND PRINT DIGIT	N = int(input()) sum = 0 while N > 0: digit = N % 10 if digit < 7: sum = sum + 1 N = N // 10 print(digit)
Паскаль	Алгоритмический язык
var N, digit, sum: longint; begin readln(N); sum := 0; while N > 0 do begin digit := N mod 10; if digit < 7 then sum := sum + 1; N := N div 10; end; writeln(digit) end.	алг нач цел N, digit, sum ввод N sum := 0 нц пока N > 0 digit := mod(N,10) если digit < 7 то sum := sum + 1 все N := div(N,10) кц вывод digit кон
Си++
#include using namespace std; int main() { int N, digit, sum; cin >> N; sum = 0; while (N > 0) { digit = N % 10; if (digit < 7) sum = sum + 1; N = N / 10; } cout << digit<< endl; return 0; }

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

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

Достаточно указать ошибки и способ их исправления для одного языка программирования.

Accepted Answer

1. 4
2. 871
3. Ошибка 1: `if digit < 7 then sum = sum + 1;` → `if digit < 7 then sum = sum + digit;`
   Ошибка 2: `writeln(digit)` → `writeln(sum)`

Answer

Идея решения: проанализировать логику программы, выявить, что она считает и что выводит, затем определить расхождения с требуемым алгоритмом.

**Шаг 1. Трассировка программы при вводе 456**

Программа обрабатывает число 456 справа налево, извлекая цифры:
- Итерация 1: `digit = 6`, условие `6 < 7` истинно, `sum = 1`, `N = 45`
- Итерация 2: `digit = 5`, условие `5 < 7` истинно, `sum = 2`, `N = 4`
- Итерация 3: `digit = 4`, условие `4 < 7` истинно, `sum = 3`, `N = 0`

Цикл завершается. Программа выводит значение переменной `digit`, которая содержит последнюю обработанную цифру — 4.

**Ответ на вопрос 1:** программа выведет **4**.

**Шаг 2. Пример трёхзначного числа, при котором программа выдаёт верный ответ**

Верный ответ для числа 456 должен быть $4 + 5 + 6 = 15$ (сумма всех цифр, меньших 7).

Программа выводит последнюю обработанную цифру. Верный ответ совпадает с выводом, если это число состоит из одной цифры, меньшей 7, и остальных цифр, не меньших 7.

Пример: **700**. Цифры: 7, 0, 0. Цифры, меньшие 7: только 0 и 0. Сумма: $0 + 0 = 0$. Последняя обработанная цифра: 0. Программа выведет 0 — верный ответ.

Другой пример: **123**. Цифры: 1, 2, 3. Все меньше 7. Сумма: $1 + 2 + 3 = 6$. Последняя обработанная цифра: 1. Программа выведет 1 — неверно.

Пример: **871**. Цифры: 8, 7, 1. Меньше 7: только 1. Сумма: 1. Последняя обработанная цифра: 1. Программа выведет 1 — верный ответ.

**Ответ на вопрос 2:** **871** (или **700**, **800**, **900** и т. п.).

**Шаг 3. Выявление ошибок**

Ошибка 1: строка `if digit < 7 then sum = sum + 1;`

Программа увеличивает счётчик на 1, а не добавляет саму цифру. Должно быть: `sum = sum + digit`.

Ошибка 2: строка `writeln(digit);`

Программа выводит последнюю обработанную цифру, а не сумму. Должно быть: `writeln(sum);`.

**Исправленный код на Паскале:**

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

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