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

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

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

 
 var i,min,count,n,c:integer; 
 begin 
 min:=10000; 
 count:=0; 
 for i:=1000 to 9999 do 
 begin 
 if ((i div 5 mod 5=2) and ((i mod 5 = 1) or (i mod 5 = 3))) then 
  begin 
  c:=0; 
  n:=i; 
  while n>=1 do 
    begin 
    c:=c+1; 
    n:=n div 5; 
    end; 
  if c>=6 then 
    begin 
    count:=count+1; 
    if min>i then 
       min:=i; 
    end; 
  end; 
 end; 
 writeln(count,' ',min); 
 end. 
 

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