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

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

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

 
 function F(n: integer): integer; 
 begin 
   if n = 0 then F := 1; 
   if n > 0  then F := 2 * F(1 - n) + 3 * F(n - 1) + 2; 
   if n < 0  then F := -F(-n); 
 end; 
  
 begin 
   writeln(F(50)); 
 end. 
 

 var m := new Dictionary<integer, integer>; 
 function F( n: integer ): integer; 
 begin 
   if n in m then 
     Result := m[n] 
   else begin 
     if n = 0 then 
       Result := 1 
     else if n > 0 then 
       Result := 2*F(1-n) + 3*F(n-1) + 2 
     else 
       Result := -F(-n); 
     m[n] := Result; 
   end; 
 end;   
 begin 
   Print( F(50) ) 
 end.

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