Форум: «ЕГЭ по информатике»

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

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

Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

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

###
var a := ReadAllText('27-78a.txt').ToIs[1:];
var smax,l:int;
for var i:=0 to a.H do begin
var s := 0;
for var j:=i to a.H do begin
s += a[j];
if (a[ i]+a[j]).D(73)and s.D(37) then begin
if s>smax then begin
smax := s;
l := j-i+1;
end;
if (s=smax) and (j-i+1<l) then
l := j-i+1;
end;
end;
end;
print(l, smax, smax mod 37)

n,*a = [*map(int,open('27-78a.txt'))]
smax = L = 0
for i in range(n):
s = 0
for j in range(i,n):
s += a[j]
if (a[ i]+a[j])%73 + s%37 == 0:
if s>=smax:
smax,L = s,j-i
if s==smax and j-i<L:
L = j-i
print(L+1,smax,smax%37)