В файле содержится последовательность целых чисел. Элементы последовательности могут принимать целые значения
Ответ:
Будем последовательно считывать числа из файла. Для каждой пары (двух подряд идущих элементов) будем проверять, делится ли хотя бы одно число из пары
Приведём решение задачи на языке Pascal.
var
x, y, count: longint;
maxsum: longint;
f: text;
begin
assign(f,'C:\17.txt');
reset(f);
readln(f, x);
maxsum := -20001;
count := 0;
while not eof(f) do begin
readln(f, y);
if (x mod 3 = 0) or (y mod 3 = 0) then begin
count := count + 1;
if x + y > maxsum then maxsum := x + y;
end;
x := y;
end;
writeln(count, ' ', maxsum);
end.
Приведём решение Николая Чуркина (Тимашевск) на языке Python.
count = 0
m = -20001
f = open('17.txt')
l = [int(i) for i in f]
for i in range(len(l) - 1):
if (l[i] % 3 == 0) or (l[i + 1] % 3 == 0):
count += 1
m = max(m, l[i]+ l[i + 1])
print(count, m)
В результате работы данного алгоритма при вводе данных из файла ответ — 2802 1990.
Примечание.
Путь к файлу необходимо указать согласно расположению файла на Вашем компьютере.