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

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

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

 
 function f(n:integer):int64; 
 begin 
   if n<=5 then result:=n+15 
     else if n mod 2=0 then result:=f(n div 2)+n*n*n-1 
       else result:=f(n-1)+2*n*n*+1 
 end; 
 begin 
   var count:=0; 
   for var i:=1 to 1000 do 
   begin 
     var t:=f(i); 
     var count8:=0; 
     var t2:=t; 
     while t2>0 do 
     begin 
       if t2 mod 10=8 then 
       begin   
         count8+=1; 
         if count8=2 then 
         begin 
            count+=1; 
            println (count,t); 
            break;   
         end;    
       end; 
       t2:= t2 div 10; 
     end; 
   end; 
 end. 
 

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