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

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

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

 var n,count,max:integer; 
   begin 
   count:=0; 
   max:=0; 
   for  n:=1000 to 6*6*6*6*6-1 do 
         if (n mod 36= 13) or (n mod 36=14) then 
          begin 
       count:=count+1; 
       max:=n; 
       end; 
   writeln(count, ' ',max); 
   end.

 k = 0 
 m = 0 
 for i in range(1000, 10000): 
     if i >= 6**4 and (i // 6) % 6 == 1 and (i % 6 == 3 or i % 6 == 4): 
         k += 1 
         if i > m: 
             m = i 
 print(k, m)

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