Форум » Обработка целых чисел » Задание 17 номер 201, не сходится ответ » Ответить

Задание 17 номер 201, не сходится ответ

ivackov.sergey: { 201) (П. Финкель) В файле 17-199.txt содержится последовательность целых чисел, которые принимают значения от -10000 до 10000 включительно. Тройка идущих подряд чисел последовательности называется уникальной, если только второе из них является положительным трёхзначным нечётным числом. Определите количество уникальных троек чисел, а затем – максимальную из всех сумм таких троек. } ## //{ Assign(input, '17-199.txt'); var a := ReadInteger; var b := ReadInteger; var maxi := -100000; var count := 0; while not eof() do begin var c := ReadInteger; if (b > 0) and b.IsOdd and b.Between(100, 999) then begin count+=1; var sum := a + b + c; maxi := max(maxi, sum); end; (a, b) := (b, c); end; count.print; maxi.println; //} //{ begin var D:= ReadLines('17-199.txt').Select(t -> t.ToInteger).ToArray; var Trio:= D.NWise(3). Select(ar->ar.ToArray) .Where(ar->(ar[1] >0) and (ar[1] mod 2 = 1) and (ar[1] in [100..999])); Trio.Count.Print; Trio.Select(ar->ar[0]+ar[1]+ar[2]).Max.println; end; //} На сайте ответ: 94 18841 Моя программа: 100 18841 (2-мя способами)?

Ответов - 2

cabanov.alexey: если только второе из них проверяйте что первое и третье не подходит

ivackov.sergey: Вся соль в этой фразе. Спасибо! Все получилось.



полная версия страницы