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

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

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

 begin 
   var s:= biginteger.Pow(19,81)+biginteger.Pow(23,709)-4; 
   var c:array [1..1012] of biginteger; 
   var i,n:integer; 
   (n,i):=(0,1); 
   while s>0 do begin 
     c[ i]:=s mod 9; 
     s:= s div 9; 
     i:=i+1; 
   end; 
   for i:=1 to 1012 do begin 
     if (c[ i]=8) and ((c[i+1]=1)or(c[i+1]=2)or(c[i+1]=3)or(c[i+1]=4)or(c[i+1]=5)or(c[i+1]=6)or(c[i+1]=7)) then  
       n:=n+1; 
   end; 
   writeln(n); 
 end.

 
 x=19**81+23**709-4 
 y='' 
 while x>0: 
     y=str(x%9)+y 
     x=x//9 
 k=0 
 for i in range(1,8): 
     k+=y.count(str(8)+str(i)) 
 print(k) 
 

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