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

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

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

 var x,k,p,i:integer; 
 function f(n:integer):integer; 
 begin 
   if n<=5 then begin f:=n+15;exit;end; 
   if n>5 then begin f:=((F(n DIV 2))+(n*n*n-1));exit;end; 
   if n>5 then begin f:= F(n-1)+2*n*n+1;exit;end; 
 end; 
     begin 
       for i:=1 to 1000 do 
          begin 
       k:=0; 
       x:=f(i); 
       p:=0; 
       while x>0 do 
       begin 
         k:=x mod 10; 
         x:= x div 10; 
         if k=8 then p:=p+1; 
         end; 
         if p>=8 then 
         writeln(f(i)); 
         end;           
     end.

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