На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

 f = open('17-205.txt') 
 a = [ int(x) for x in f] 
 ans=[] 
 for i in range (len(a)-1): 
     if (abs(a[ i])%7 ==0 or abs(a[i+1])% 7 == 0) and (abs((a[ i]+a[i+1])%100) ==19): 
         ans.append(a[ i]+a[i+1]) 
          
 print( len(ans), max(ans) )

 
 ### 
 var m := ReadAllText('17-205.txt').ToIntegers; 
 var n := m.Pairwise.Where(\(a,b)-> ((abs(a).d(7)) or (abs(b).d(7))) 
  and (abs(a + b) mod 100 = 19)) 
 .Select(\(a,b)-> a + b); 
 print(n.Count, n.Max) 
 

Создай свой форум на сервисе Borda.ru
Форум находится на 3 месте в рейтинге
Текстовая версия