На обработку поступает последовательность из четырёх неотрицательных целых чисел (некоторые числа могут быть одинаковыми). Нужно написать программу, которая выводит на экран количество всех чисел исходной последовательности, которые делятся без остатка на 7, и сумму таких чисел. Если в последовательности нет чисел, которые делятся без остатка на 7, то на экран нужно вывести «NO». Известно, что вводимые числа не превышают 1000. Программист написал программу неправильно. Ниже эта программа для Вашего удобства приведена на пяти языках программирования.
Напоминание: 0 делится на любое натуральное число.
| Бейсик | Python |
|---|---|
CONST n=4 count = 0 sum = 0 FOR I = 1 TO n INPUT x IF x mod 7 = 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 % 7 == 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 7 = 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,7) = 0 то count := count + 1 sum := x все кц если sum > 0 то вывод count вывод sum иначе вывод "NO" кон |
| С++ | |
#include <iostream> #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 % 7 == 0){ count = count + 1; sum = x; } } if(sum > 0) { cout << count << endl; cout << sum << endl; } else cout << "NO"; return 0; }
| |
Последовательно выполните следующее.
1. Напишите, что выведет эта программа при вводе последовательности: 35 50 70 80.
2. Приведите пример последовательности, в которой есть хотя бы одно число, делящееся на без остатка 7, при вводе которой, несмотря на ошибки, программа печатает правильный ответ.
3. Найдите все ошибки в этой программе (их может быть одна или несколько). Известно, что каждая ошибка затрагивает только одну строку и может быть исправлена без изменения других строк. Для каждой ошибки:
1) выпишите строку, в которой сделана ошибка;
2) укажите, как исправить ошибку, т. е. приведите правильный вариант строки.
Достаточно указать ошибки и способ их исправления для одного языка программирования.
Обратите внимание на то, что требуется найти ошибки в имеющейся программе, а не написать свою, возможно, использующую другой алгоритм решения. Исправление ошибки должно затрагивать только строку, в которой находится ошибка.
1. При вводе чисел 35 50 70 80 программа выведет числа 2 и 70.
2. Программа выведет верный ответ, если среди последовательности из четырёх чисел будет только одно число, которое будет делиться на 7, причём это не 0, например — 1, 2, 3 и 7, либо если в последовательности есть несколько нулей и после них идёт только одно число, которое делится на 7, например — 0 0 21 3.
3. Программа содержит две ошибки.
1) Неверный подсчёт суммы чисел, которые делятся без остатка на 7.
2) Неверная проверка наличия чисел в последовательности, удовлетворяющих условию.
Пример исправления для языка Паскаль:
Первая ошибка:
sum := x;
Исправленная строка:
sum := sum + x;
Вторая ошибка:
if sum > 0 then begin
Исправленная строка:
if count > 0 then begin
В программах на других языках ошибочные строки и их исправления аналогичны.
Незначительной опиской, не влияющей на оценку, следует считать отсутствие знаков после содержательной части исправления (например, точки с запятой в C++).