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

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

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

 
 ### 
 uses school; 
 var (c,n) := (0,912673); 
 while c < 5 do begin 
   n -= 2; 
   var s := n.Divisors[1:^1].where(x-> not x.isprime).Sum; 
   if (s > 0)and(n mod s = 0)and(n.DivisorsCount > 1) then begin 
     println(n,s); 
     c += 1; 
   end; 
 end 
 

 def divisors(x): 
     return {i for d in range(2,int(x**0.5)+1) if x%d==0 for i in (d,x//d)} 
 def prime(x): 
     return all(x%i!=0 for i in range(2, int(x**0.5)+1)) 
  
 for x in range(912671,1,-2): 
     S = sum(i for i in divisors(x) if not prime(i)) 
     if S>0 and x%S==0: 
         print(x,S)

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