Форум » Обработка числовых последовательностей » [№2678] » Ответить
[№2678]
MarinaS: Задание 27. Задача №2678.[/url] В примере входного файла указывается, что "В приведённом наборе имеются одна пара (2, 13)," удовлетворяющая условию. Но пары (4,39), (14,39), (39,2) тоже удовлетворяют условию. Почему их не посчитали ?
Ответов - 4
Поляков: Спасибо за замечание, там были неверные данные в примере. Исправлено.
ИринаМур: [pre2] ## var f:text; var a:array[1..60000] of integer; assign(f,'B.txt'); reset(f); var n:=0; while not eof(f) do begin inc(n); readln(f,a[n]); end; close(f); var s:=0; for var i:=1 to 59996 do begin var k:=0; for var j:=i+1 to i+4 do begin if ((a(i)+a[j]) mod 2<>0) and ((a(i)*a[j]) mod 13=0)then k+=1;end; s:=s+k; end; print(s);[/pre2]Подскажите, пожалуйста, где ошибка? Для файла А.txt выдает верный ответ, а для файла B.txt нет, у меня ответ 17810, а в ответах 17813
Поляков: ИринаМур пишет: Подскажите, пожалуйста, где ошибка? Вы неверно обрабатываете последний участок последовательности. Например, пару последних чисел программа не проверяет.
ИринаМур: спасибо, точно ведь
полная версия страницы