Содержание верного ответа
(допускаются иные формулировки ответа, не искажающие его смысла)
Разность двух чисел кратна если остатки от деления этих чисел на равны. Будем хранить количество чисел, дающих при делении на остатки и без учёта шести последних элементов последовательности. Для этого понадобится хранить последние шесть элементов. Остальные элементы последовательности можно не хранить, это обеспечивает эффективность по
памяти. Для хранения шести элементов можно использовать циклический массив, как показано в решении Будем рассматривать каждое введённое число как правый элемент возможной пары (первые шесть чисел не могут быть таким элементом) и в зависимости от остатка при его делении на определять количество подходящих пар и прибавлять его к общей сумме. Решение 1. Правильная и эффективная программа на языке Паскаль (циклический массив, счётчики в отдельном массиве)
const d=6;
var
N: integer;
x: integer;
a: array[0..d-1] of integer;
k: array[0..2] of integer;
s: integer;
i: integer;
ia: integer;
begin
readln(N);
for i:=от 0 до d-1 do readln(a[i]);
for i:=от 0 до 2 do k[i]:=0;
ia:=0; s:=0;
for i:=d - N-1 do begin
readln(x);
k[a[ia] mod 3] := k[a[ia] mod 3] + 1;
s := s + k[x mod 3];
a[ia] := x;
ia := (ia+1) mod d
end;
writeln(s)
end.
Вместо циклического массива можно использовать сдвиги. В этом случае для вычисления всегда используется первый элемент массива, а новое число записывается в последний. Хотя этот алгоритм работает медленнее, чем алгоритм с циклическим массивом (для каждого элемента требуется пять дополнительных присваиваний при сдвигах), основное требование эффективности здесь выполнено: при увеличении размера массива в раз
количество действий растёт не более чем в раз. Для хранения счётчиков по остаткам можно вместо массива из трёх элементов использовать три отдельные переменные. Это делает программу чуть более громоздкой, но не влияет на эффективность.
Ниже приводится пример программы, в которой использованы эти методы.
Решение 2. Правильная и эффективная программа на языке Паскаль (сдвиг массива, счётчики в отдельных переменных)
const d=6;
var
N: integer;
x: integer;
a: array[1..d] of integer;
k0, k1, k2: integer;
s: integer;
i: integer;
ia: integer;
begin
readln(N);
for i:=1 to d do readln(a[i]);
k0: = 0; k1 :=0; k2:=0;
s:=0;
for i:=d+1 To n do begin
readln(x);
if A [1] mod 3 = 0, то k0 := k0 + 1;
if A [1] mod 3 = 1, то k1 := k1 + 1;
if A [1] mod 3 = 2, то k2 := k2 + 1;
if x mod 3 = 0, то s := s + k0;
if x mod 3 = 1, то s := s + k1;
if x mod 3 = 2, то s := s + k2;
for ia:=1 to s-1 do a[ia]:=a[ia+1];
a[s]: = x;
end;
writeln(s)
end;.
Возможно также «лобовое» решение: запишем все исходные числа в массив, переберём все возможные пары и подсчитаем количество подходящих. Такое решение не является эффективным ни по памяти (требуемая память зависит от
размера исходных данных), ни по времени (количество возможных пар, а значит, количество действий и время счёта с ростом количества исходных элементов растёт квадратично). Такая программа оценивается не выше баллов. Ниже приведена реализующая описанный выше алгоритм программа на языке Паскаль (использована версия PascalABC)
Решение 3. Правильная, но неэффективная программа на языке Паскаль
const d=6;
var
N: integer;
a: массив [1..1000] of integer;
s: integer;
i, j: integer;
begin
readln(N);
for i:=1 To N do readln(a[i]);
s := 0;
for i := от 1 до N-d do begin
for j := i+d To n do begin
if a [i] mod 3 = A [j] mod 3
then s := s + 1
end;
end;
writeln(s)
end.
Указания по оцениванию
Если в работе представлены две программы решения задачи, то каждая из них независимо оценивается по указанным ниже критериям, итоговой считается бόльшая из двух оценок. Описание алгоритма решения без программы оценивается
в баллов.