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

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

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

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

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

##
var s:=ReadAllLines('17-361.txt');
var min40:=s.Select(x->x.ToInteger).Where(x->abs(x) mod 100 = 40).Min;
var mx:=-100000;
var (k,j):=(0,0);
for var i:=0 to s.Length-3 do
begin
var a:=s[ i].ToInteger;
var b:=s[i+1].ToInteger;
var c:=s[i+2].ToInteger;
var l:=lst(a,b,c);
if (l.Distinct.Count=2) and
(l.Count(x->x>min40)=3) then
begin
k+=1;
var mx3:=max(a,b,c);
if a = mx3 then j:=i+1;
if b = mx3 then j:=i+2;
if c = mx3 then j:=i+3;
mx:=max(mx,mx3);
end;
end;

print(k,j);

a = [ int(x) for x in open("17-361.txt") ]
Min40 = min( int(x) for x in a if abs(x) % 100 == 40 )

count = maxNo = 0
for i in range(len(a)-2):
if (a[ i]==a[i+1] and a[ i]!=a[i+2]) or (a[i+1]==a[i+2] and a[i+1]!=a[ i]) or (a[ i]==a[i+2] and a[ i]!=a[i+1]):
if a[ i] > Min40 and a[i+1] > Min40 and a[i+2] > Min40:
count += 1
maxNo = 2 + i + 1

print( count, maxNo )

s=[int(c) for c in open('d:/1.txt')]
m=min([c for c in s if abs(c)%100==40])
l=[(i,s[i:i+3]) for i in range(len(s)-2) if len(set(s[i:i+3]))==2 and min(s[i:i+3])>m]
print(len(l),max(l))
>> 1935 (11933, [-1733, -1733, -33860])