Задание № 7190
На обработку поступает последовательность из четырёх неотрицательных целых чисел (некоторые числа могут быть одинаковыми). Нужно написать программу, которая выводит на экран количество всех чисел исходной последовательности, которые делятся на 11, и сумму таких чисел. Если в последовательности нет чисел, которые делятся на 11, то на экран нужно вывести «NO». Известно, что вводимые числа не превышают 1000. Программист написал программу неправильно. Ниже эта программа для Вашего удобства приведёна на четырёх языках программирования.
Бейсик
CONST n = 4
count = 0
sum = 0
FOR I = 1 ТО n
INPUT x
IF x mod 11 = 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
цел i, х
цел sum, count
count := 0
sum := 0
нц для i от 1 до n
ввод x
если mod(x, 11) = 0 то
count := count + 1
sum := х
все
кц
если sum > 0
то
вывод count, нс
вывод sum, нс
иначе
вывод "NO"
все
кон
Паскаль
const n = 4;
var i, x: integer;
var sum, count: integer;
begin
count := 0;
sum := 0;
for i := 1 to n do
begin
read(x);
if x mod 11 = 0 then
begin
count := count + 1;
sum := x
end
end;
if sum > 0 then
begin
writeln(count);
writeln(sum)
end
else
writeln('NO')
end.
Си
#define n 4 void main(void)
{
int i, x;
int sum, count;
count = 0;
sum = 0;
for (i = 1; i <= n; i++)
#include <stdio.h>
{
scanf("%d", &x) ;
if (x % 11 == 0)
{
count++;
sum = x;
}
}
if (sum > 0)
{
printf("%d\n", count);
printf("%d\n", sum);
}
else
printf("N0\n");
}
Последовательно выполните следующее.
1. Напишите, что выведет эта программа при вводе последовательности: 22 33 65 45
2. Приведите пример такой последовательности, содержащей хотя бы одно число, кратное 11, что, несмотря на ошибки, программа печатает правильный ответ.
3. Найдите все ошибки в этой программе (их может быть одна или несколько). Известно, что каждая ошибка затрагивает только одну строку и может быть исправлена без изменения других строк. Для каждой ошибки:
1) выпишите строку, в которой сделана ошибка;
2) укажите, как исправить ошибку, т.е. приведите правильный вариант строки. Достаточно указать ошибки и способ их исправления для одного языка программирования.
Обратите внимание, что требуется найти ошибки в имеющейся программе, а не написать свою, возможно, использующую другой алгоритм решения. Исправление ошибки должно затрагивать только строку, в которой находится ошибка.
Примечание: 0 делится на любое целое число.
Содержание верного ответа
Решение использует запись программы на Паскале. Допускается использование программы на трёх других языках программирования.
1. Программа выведет два числа: 2 и 33.
2. Пример последовательности, содержащей числа, кратные 11, и для которой программа работает правильно: 1 3 11 20.
Замечание для проверяющего. В конце работы программы значение переменной sum всегда равно последнему числу последовательности, которое делится на 11, или 0, если в последовательности нет чисел, кратных 11. Значение переменной count вычисляется правильно. Ввиду второй ошибки программа будет работать верно, если:
1) в последовательности сумма чисел, кратных 11, равна последнему числу, кратному 11;
2) это число больше 0.
В программе есть две ошибки.
Первая ошибка: неверное присваивание при вычислении текущей суммы.
Строка с ошибкой:
sum := х
Верное исправление:
sum := sum + х
Вторая ошибка: неверная проверка наличия чисел, кратных 11, при печати.
Строка с ошибкой:
if sum > 0 then
Верное исправление:
if count > 0 then
Ответ: Нашли ошибку в задании? Выделите фрагмент и нажмите Ctrl + Enter.