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

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

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

 var c,i,y,k: longint; 
 begin 
 for i:=1000 to 20000 do 
 begin 
 k:=0; 
 c:=0; 
 for y:= 1 to i div 2 do 
 begin 
 if i mod y =0 then 
 begin 
 c:=c+1; 
 k:=k+y; 
 end; 
 end; 
 if k-i=1 then 
 writeln (i); 
 end; 
 end.

if i-k=1 then

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