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

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

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

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

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

f= lambda n,s,t: f(n-1,s+'-',t+[n]) + f(n-2,s+'-',t+[n]) + f(n+5,s+'+',t+[n]) + f(n*2,s+'*',t+[n]) \
if n!=50 and n<50+3 and '--' not in s and n%10!=5 else (n==50 and '--' not in s and 37 in t)*[t+[50]]
s=f(7,'',[])
print(*s,len(s), sep='\n')

begin
if (x-2>y) or (x mod 10 = 5) then f:=0
else if x=y then
f:=1
else if k=1 then
f:=f(x+5,y,0)+f(x*2,y,0)
else f:=f(x-1,y,1)+f(x-2,y,1)+f(x+5,y,0)+f(x*2,y,0)
end;

begin
print(f(7,37,0)*f(37,50,0))
end.

function f(x:integer;fl:Boolean;s:ShortString):integer ;
begin
if (x-2>50) or (x mod 10 = 5) then f:=0
else if (x=50) and (fl) then
f:=1
else if s='-' then
f:=f(x+5,fl or (x=37),'1') + f(x*2,fl or (x=37),'1')
else f:=f(x-1,fl or (x=37),'-') + f(x-2,fl or (x=37),'-') + f(x+5,fl or (x=37),'1')+f(x*2,fl or (x=37),'1')
end;

begin
writeln(f(7,False,'+'))
end.