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

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

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

  
 var x, k, x0, 
   a, b, d: integer; 
 begin 
 for x0:=1 to 10000 do 
   begin 
   x:=x0; 
   k := x mod 8; 
   a := 0; b := 0; 
   while x > 0 do  
     begin 
     d := x mod 8; 
     if d = k then  
       a := a+1; 
     b := b + d; 
     x := x div 8 
   end; 
  if (a = 4) and (b = 11) then 
   writeln(x0); 
   end; 
 end. 
 

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