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

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

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

 if x%2==0: 
   k+=f(st,x-1) 
 if x%2!=0: 
   k+=f(st,x-2)

 
 function q(a:integer; s:integer):integer; 
 begin; 
 if a=s then q:=1 else  
           if a>s then  q:=0 else 
             if a mod 2=0 then q:=q(a+1,s)+q(a*2,s) else 
              q:=q(a+1,s)+q(a*2,s)+q(a+2,s)   
 end; 
 begin; 
 writeln(q(3,9)*q(9,17)*q(17,25)); 
 end.           
 

Создай свой форум на сервисе Borda.ru
Форум находится на 3 месте в рейтинге
Текстовая версия