Отправлено: 16.03.23 17:21. Заголовок: Задача 17 Вариант 11 генератора ЕГЭ

{(№ 5283) (И. Кушнир) В файле 17-335.txt содержится последовательность целых чисел.
Элементы последовательности могут принимать целые значения от 1000 до 9999 включительно.
Обозначим через M минимальное число в последовательности, кратное 43.
Определите количество пар последовательности, в которых либо сумма чисел кратна M,
либо хотя бы в одном из чисел последняя цифра совпадает с последней цифрой числа M.
Гарантируется, что такая пара в последовательности есть.
В ответе запишите количество найденных пар, затем максимальное из чисел,
которые являются элементами таких пар.
В данной задаче под парой подразумевается два идущих подряд элемента последовательности.}

 
 ### uses school; 
 var div43:=new List <integer>; 
 var (count,maxnum):=(0,0); 
 var a:=ReadAllText('17-335.txt').ToIntegers; 
 for var i:=0 to a.H do if a[ i] mod 43 = 0 then div43.Add(a[ i]); 
 var mn:=div43.Min; 
 for var i:=0 to a.H-1 do begin 
   if ((a[ i]+a[i+1]) mod mn = 0) or (a[ i] mod 10 = mn mod 10) or (a[i+1] mod 10 = mn mod 10) then begin 
     count+=1; maxnum:=max(maxnum,a[ i],a[i+1]); 
   end; 
 end; 
 Print(count,maxnum);

Первое число ответа 1898 не совпадает с ответом 1895 на сайте. Есть решение в Excel там так же первое число ответа 1898

 Отправлено: 17.03.23 14:08. Заголовок: gusev67 пишет: Опред..

gusev67 пишет:

цитата:

Определите количество пар последовательности, в которых либо сумма чисел кратна M, либо хотя бы в одном из чисел последняя цифра совпадает с последней цифрой числа M.

"Либо" в условии означает исключающее ИЛИ.

 Отправлено: 17.03.23 16:10. Заголовок: Да, Вы правы. Ответ ..

Да, Вы правы. Ответ задачи на сайте записан верно. Решение с учетом Вашего пояснения дало верный результат
### uses school;
var count:=0;
var maxe:=0;
var a:=ReadAllText('17-335.txt').ToIntegers;
var res:=new List <integer>;
for var i:=0 to a.H do if a mod 43 = 0 then res.Add(a);
var mn:=res.Min;
for var i:=0 to a.H-1 do begin
if (((a[ i]+a[ i+1]) mod mn = 0) and not ((a[ i] mod 10 = mn mod 10) or (a[ i+1] mod 10 = mn mod 10))) or
(not((a[ i]+a[ i+1]) mod mn = 0) and ((a[ i] mod 10 = mn mod 10) or (a[ i+1] mod 10 = mn mod 10))) then begin
count+=1; maxe:=max(maxe,a,a[i+1]);
end;
end;
Print(count,maxe);