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

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

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

 var x, y, a, b,i,j,min: integer; 
 begin 
 min:=100000000; 
 for i:=1 to 10000 do 
 for j:=1 to 10000 do 
 begin 
 x:=i; y:=j; 
 a := 0; 
 b := 0; 
 while x * y > 0 do begin 
 if x > 0 then 
 a := a + 1; 
 if (y > 0) and 
 (y mod 7 > b) 
 then 
 b := y mod 7; 
 x := x div 10; 
 y := y div 7; 
 end; 
 if (a=4) and (b=5) and (i*j<min) then 
 begin 
 min:=i*j; 
 end; 
  
 end; 
 writeln(min); 
 end.

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