По каналу связи передаётся последовательность положительных целых чисел, все числа не превышают 1000. Количество чисел известно, но может быть очень велико. Затем передаётся контрольное значение последовательности — наибольшее число R, удовлетворяющее следующим условиям:
1) R — произведение двух различных переданных элементов последовательности («различные» означает, что не рассматриваются квадраты переданных чисел, произведения различных элементов последовательности, равных по величине, допускаются);
2) R делится на 10.
Если такого числа R нет, то контрольное значение полагается равным 0. В результате помех при передаче как сами числа, так и контрольное значение могут быть искажены.
Напишите эффективную, в том числе по используемой памяти, программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая будет проверять правильность контрольного значения. Программа должна напечатать отчёт по следующей форме:
Вычисленное контрольное значение: ...
Контроль пройден (или — Контроль не пройден)
Перед текстом программы кратко опишите используемый Вами алгоритм решения.
На вход программе в первой строке подаётся количество чисел N. В каждой из последующих N строк записано одно натуральное число, не превышающее 1000. В последней строке записано контрольное значение.
Пример входных данных:
6
95
17
10
102
957
95
9690
Пример выходных данных для приведённого выше примера входных данных:
Вычисленное контрольное значение: 9690
Контроль пройден
Произведение двух чисел делится на 10 если:
- один из сомножителей делится на 10 (второй может быть любым) либо
- ни один из сомножителей не делится на 10. причём один из сомножителей делится на 2. а другой — на 5.
Поэтому программа, вычисляющая кодовое число, может работать так.
Программа читает все входные данные один раз. не запоминая все данные
в массиве. Программа для прочитанного фрагмента входной
последовательности хранит значения четырёх величин:
М2 — самое большое чётное число, не кратное 5;
М7 — самое большое число, кратное 5, но не кратное 2:
М10 — самое большое число, кратное 10;
МАХ — самое большое число среди всех элементов последовательности, отличное от М10 (если число М10 встретилось более одного раза и оно же является максимальным, то МАХ = M10).
После того как все данные прочитаны, искомое кодовое слово вычисляется как максимум из произведений М10*МАХ и М2*М5.
Ниже приведён пример программы на языке Паскаль, которая реализует описанный алгоритм.
Кроме того, приведён пример программы на языке Бейсик, которая правильно решает задачу, но использует алгоритм, немного отличающийся от описанного выше. Возможны и другие правильные алгоритмы. Допускаются решения, записанные на других языках программирования
Пример правильной и эффективной программы на языке Паскаль
var М2,М5,М10,R,MAX,dat,res,i,N: longint;
begin
M2 := 0;
M5 := 0;
M10 := 0;
MAX := 0;
readln(N);
for i := 1 to N do
begin
readln(dat);
if ((dat mod 2) = 0) and ((dat mod 5) >0) and (dat > M2) then M2 := dat;
if ((dat mod 5) = 0) and ((dat mod 2) > 0) and (dat > M5) then M5 := dat;
if (dat mod 10 = 0) and (dat > M10) then begin
if M10 > MAX then MAX := M10; M10 := dat;
end
else
if dat > MAX then MAX := dat;
end;
readln(R);
if (M2*M5 < M10 *MAX) then
res := M10*MAX else
res := M2*M5; writeln('Вычисленное контрольное значение: ',res);
if R = res then writeln('Контроль пройден')
else writeln('Контроль не пройден');
end.
На языке Бейсик
М10 =О
М2 = О
М5 = О
МАХ = 0
INPUT N
FOR I = 1 ТО N
INPUT DAT
IF DAT MOD 2=0 AND DAT > M2 THEN M2 = DAT ELSE
IF DAT MOD 5=0 AND DAT > M5 THEN M5 = DAT
END IF
END IF
IF DAT MOD 10 = 0 AND DAT > M10 THEN IF M10 > MAX THEN
MAX = M10 END IF M14 = DAT ELSE
IF DAT > MAX THEN
MAX = DAT
END IF
END IF
NEXT I
INPUT R
IF M5 * M2 < M10 * MAX THEN
RES = M10 * MAX
ELSE
RES = M5 * M2
END IF
PRINT "Вычисленное контрольное значение:";
RES
IF RES = R
THEN
PRINT "Контроль пройден"
ELSE
PRINT "Контроль не пройден"
END IF
END
Указания по оцениванию
4 балла ставится за эффективную и правильно работающую программу, которая, возможно, содержит до трёх синтаксических ошибок.
3 балла ставится в случае, когда задача фактически решена, но программа содержит четыре-пять синтаксических ошибок, или если допущена одна содержательная ошибка, или если все входные данные сохраняются в массиве или иной структуре данных (программа неэффективна по памяти, но эффективна по времени работы).
2 балла ставится, если программа неэффективна по времени работы (перебираются все возможные пары элементов), или в программе две содержательные ошибки, либо шесть-семь синтаксических ошибок.
1 балл ставится, если программа написана неверно, но из описания алгоритма и обшей структуры программы видно, что экзаменуемый в целом правильно представляет путь решения задачи. Далее уточняются перечисленные выше критерии.
Приводим эффективное решение Игоря Кудашева на Python 3.
n = int(input())
m = 0
x2 = 0
x5 = 0
x10 = 0
for i in range(n):
x = int(input())
if x % 10 != 0 and x > m: m = x
if x % 10 == 0 and x > x10: x10 = x
elif x % 5 == 0 and x > x5: x5 = x
elif x % 2 == 0 and x > x2: x2 = x
r = int(input())
print('Вычисленное контрольное значение:', max(m * x10, x2 * x5))
if r == max(m * x10, x2 * x5): print('Контроль пройден')
else: print('Контроль не пройден')