Форум » Обработка целых чисел » Тема 17 задача 4722 .. » Ответить
Тема 17 задача 4722 ..
ganilova: Тема 17 задача 4722 В ответе 15 6410 У меня получилось 51 6410 Возможно опечатка?
Ответов - 6
Поляков: ganilova пишет: У меня получилось 51 6410 Возможно опечатка? Нет. Показывайте решение.
ganilova: [pre2] with open('17-243.txt', 'r') as f: file = list(map(int, f.readlines())) # print(file) sm = 0 k = 0 min_sum = 20000 for x in file: if x % 35 == 0: while x > 0: sm += x % 10 x //= 10 for i in range(1, len(file)): x2 = file x1 = file[i - 1] if x1 > sm and x2 % (16 ** 2) == 14 * 16 + 15 or\ x2 > sm and x1 % (16 ** 2) == 14 * 16 + 15: k += 1 # min_sum = min(min_sum, x1 + x2) if min_sum > x1 + x2: min_sum = x1 + x2 print(k, min_sum) [/pre2]
ganilova:
cabanov.alexey: Вы должны проверять шире Одно число оканчивается на EF И не больше sm Другое число НЕ оканчивается на EF И больше sm
patnikk: [pre2] ### var m:= ReadAllText('17-243.txt').ToIntegers; var s35:= m.Where(x-> x mod 35 = 0).Select(x-> x.ToString.Sum(x-> x - '0')).Sum; var n:= m.PairWise.Where(\(a,b)-> ((a>s35)and((b<s35)and(b mod 256 = 239))) or(b>s35)and((a<s35)and(a mod 256 = 239))) .Select(\(a,b)-> a+b); Print(n.Count,N.Min) [/pre2]
ordjon: Здравствуйте, у меня в этой задаче получилось 8 6410. Что не так? [pre2]fin = open('17-243.txt', 'r') k = 0 min_s = 0 s = 0 # сумма цифр чисел, кратных 35 for lin in fin: n = int(lin) if n % 35 == 0: while n > 0: s += n % 10 n = n // 10 fin.close() print(s) fin2 = open('17-243.txt', 'r') while True: p = fin2.readline() if not p: break n1 = int(p) p = fin2.readline() if not p: break n2 = int(p) if n1 > s and n2 <= s and n2 % 16 == 15 and 14 == (n2 // 16) % 16: print(n1, n2) k += 1 if (n1 + n2) < min_s or min_s == 0: min_s = (n1 + n2) if n2 > s and n1 <= s and n1 % 16 == 15 and 14 == (n1 // 16) % 16: k += 1 print(n1, n2) if (n1 + n2) < min_s or min_s == 0: min_s = (n1 + n2) print("k = {}, min_s = {}".format(k, min_s)) fin2.close()[/pre2]
полная версия страницы