Отправлено: 13.10.21 13:28. Заголовок: Задание 17 задача 151

Текст задания:
151) (В. Шубинкин) В файле 17-1.txt содержится последовательность целых чисел. Элементы последовательности могут принимать целые значения от -10 000 до 10 000 включительно. Определите и запишите в ответе сначала количество пар элементов последовательности, в которых хотя бы одно число оканчивается на 6 и делится на 3. Затем - минимальное число в паре среди всех таких пар. В данной задаче под парой подразумевается два идущих подряд элемента последовательности. Например, для последовательности 306; 36; -15; -6; 2; 16 ответом будет пара чисел: 4 и -15.

Моё решение:
f=open("17-1.txt")
A=[]
while True:
s=f.readline()
if not s: break
A.append(int(s))
l=len(A)
k=0
minch=10000
for i in range (1,l):
if (A%10==6 and A%3==0) or (A[i-1]%10==6 and A[i-1]%3==0):
k+=1
if minch> min(A,A[i-1]):
minch=min(A,A[i-1])
print (k, minch)
f.close()

Мой ответ: 606 -9984
Ответ автора: 587 -9996

Помогите, пожалуйста, найти ошибку.

 Отправлено: 13.10.21 13:48. Заголовок: abs(a)%10 == 6 abs(a..

 Отправлено: 17.10.21 08:13. Заголовок: Прога на питоне тоже..

Прога на питоне тоже дает ответ 606 -9984

 f = open ('17-1.txt') 
 n=0 
 m=20000 
 a = [int(x) for x in f.readlines()] 
 for i in range(len(a)-1): 
     if (a[ i]%3==0 and abs(a[ i]%10==6)) or (a[i+1]%3==0 and abs(a[i+1]%10==6)): 
         n+=1 
         m=min(m,a[ i],a[i+1]) 
 print(n,m)

 Отправлено: 17.10.21 08:18. Заголовок: все поправил. Скобки..

все поправил. Скобки не там поставил

 Отправлено: 31.10.21 20:45. Заголовок: Помогите пожалуйста

А что именно вы исправили? просто у меня всеравно выводит то же, что и у вас.

 Отправлено: 26.03.24 17:48. Заголовок: f = open('17-1.t..

f = open('17-1.txt')
n=0
m=20000
a = [int(x) for x in f]
for i in range(len(a)-1):
if (a[i]%3==0 and abs(a[i])%10==6) or (a[i+1]%3==0 and abs(a[i+1])%10==6):
n+=1
m=min(m,a[i],a[i+1])
print(n,m)

 Отправлено: 01.11.21 11:16. Заголовок: :sm36: :sm36: :sm3..

###
var v := ReadAllText('17-1.txt').ToIntegers
.Pairwise.Wh(\(q,w)-> ((abs(q) mod 10 = 6)and q.d(3))or(w.d(3)and(abs(w) mod 10 = 6)));
print(v.Count,v.Min(\(q,w)-> q),v.Min(\(q,w)-> w))