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

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

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

 ## 
 var f:text; 
 var a:array[1..60000] of integer; 
 assign(f,'B.txt'); 
 reset(f); 
 var n:=0; 
 while not eof(f) do 
  begin 
   inc(n); 
   readln(f,a[n]); 
  end; 
 close(f); 
 var s:=0; 
 for var i:=1 to 59996 do begin 
   var k:=0; 
   for var j:=i+1 to i+4 do  
     begin 
     if ((a(i)+a[j]) mod 2<>0) and ((a(i)*a[j]) mod 13=0)then  k+=1;end; 
     s:=s+k; 
     end; 
 print(s);

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