Question

На обработку поступает последовательность из четырёх неотрицательных целых чисел (некоторые числа могут быть одинаковыми). Требуется написать программу, которая выводит количество всех чисел исходной последовательности, делящихся нацело на 10, и их сумму. Если в последовательности нет чисел, делящихся нацело на 10, то выводится «NO». Известно, что вводимые числа не превышают 1000.

Напоминание: 0 делится на любое натуральное число.

Ниже приведена программа на пяти языках программирования:

Бейсик	Python
CONST n=4 count = 0 sum = 0 FOR I = 1 TO n INPUT x IF x mod 10 = 0 THEN count = count + 1 sum = x END IF NEXT I IF sum > 0 THEN PRINT count PRINT sum ELSE PRINT "NO" END IF	n = 4 count = 0 sum = 0 for i in range(1, n+1): x = int(input()) if x % 10 == 0: count = count + 1 sum = x if sum > 0: print(count) print(sum) else: print("NO")
Паскаль	Алгоритмический язык
const n = 4; var i, x, sum, count: integer; begin count := 0; sum := 0; for i := 1 to n do begin read(x); if x mod 10 = 0 then begin count := count+1; sum := x; end end; if sum > 0 then begin writeln(count); writeln(sum); end else writeln('NO') end.	алг нач цел n = 4 цел i, x, sum, count count := 0 sum := 0 нц для i от 1 до n ввод x если mod(x,10) = 0 то count := count + 1 sum := x все кц если sum > 0 то вывод count вывод sum иначе вывод "NO" кон
С++
#include #define n 4 using namespace std; int main(){ int i, x, sum, count; count = 0; sum = 0; for(i=1; i <= n; i++){ cin >> x; if(x % 10 == 0){ count = count + 1; sum = x; } } if(sum > 0) { cout << count << endl; cout << sum << endl; } else cout << "NO"; return 0; }

Программист написал программу неправильно.

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

Напишите, что выведет эта программа при вводе последовательности: 20, 25, 40, 45.
Приведите пример последовательности, в которой есть хотя бы одно число, делящееся нацело на 10, при вводе которой программа печатает правильный ответ, несмотря на ошибки.
Найдите все ошибки в этой программе (их может быть одна или несколько). Известно, что каждая ошибка затрагивает только одну строку и может быть исправлена без изменения других строк. Для каждой ошибки:
- выпишите строку, в которой сделана ошибка;
- укажите, как исправить ошибку, приведя правильный вариант строки.

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

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

Accepted Answer

1. Программа выведет: 2 и 40
2. Пример: 10, 3, 5, 7
3. Ошибка 1: `sum := x;` → `sum := sum + x;`; Ошибка 2: `if sum > 0 then` → `if count > 0 then`

Answer

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

**Пункт 1. Трассировка программы при вводе 20, 25, 40, 45:**

При вводе первого числа 20: $20 \bmod 10 = 0$, поэтому `count = 1`, `sum = 20`.

При вводе второго числа 25: $25 \bmod 10 = 5 
eq 0$, условие не выполняется.

При вводе третьего числа 40: $40 \bmod 10 = 0$, поэтому `count = 2`, `sum = 40` (переменная `sum` перезаписывается, а не увеличивается).

При вводе четвёртого числа 45: $45 \bmod 10 = 5 
eq 0$, условие не выполняется.

После цикла `sum = 40 > 0`, поэтому программа выводит `count = 2` и `sum = 40`.

**Пункт 2. Пример последовательности, при которой программа выводит правильный ответ:**

Программа выведет верный результат, если в последовательности ровно одно число, делящееся на 10, и оно не равно нулю. Например: **10, 3, 5, 7**.

При таком вводе `count = 1`, `sum = 10`, и программа выведет `1` и `10`, что является правильным ответом.

Также программа выведет верный ответ, если в последовательности нет чисел, делящихся на 10 (например: 5, 7, 23, 1), но в этом случае условие задачи требует вывести «NO», что программа и делает.

**Пункт 3. Ошибки в программе:**

Программа содержит две ошибки.

**Первая ошибка:** неправильный подсчёт суммы.

Ошибочная строка (Паскаль):
```pascal
sum := x;
```

Исправленная строка:
```pascal
sum := sum + x;
```

Причина: переменная `sum` должна накапливать сумму всех чисел, делящихся на 10, а не хранить только последнее такое число.

**Вторая ошибка:** неправильная проверка наличия подходящих чисел.

Ошибочная строка (Паскаль):
```pascal
if sum > 0 then begin
```

Исправленная строка:
```pascal
if count > 0 then begin
```

Причина: проверка `sum > 0` не работает, если среди чисел, делящихся на 10, есть ноль (так как 0 делится на любое натуральное число). Нужно проверять, найдено ли хотя бы одно такое число, что отражает переменная `count`.

Для других языков программирования исправления аналогичны:
- Python: `sum = sum + x` и `if count > 0:`
- C++: `sum = sum + x;` и `if(count > 0)`
- Алгоритмический язык: `sum := sum + x` и `если count > 0 то`

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