Форум » Обработка числовых последовательностей » задание 27 номер 82 (Жуков) » Ответить
задание 27 номер 82 (Жуков)
Саша час: помогите найти ошибку, вроде бы все правильно сделал , а на проверке другое число: var a:array[1..5]of integer; j,k,i,r,n:integer; begin readln(n); for i:=1 to 5 do a:=0; for i:=1 to 4 do readln(a); k:=0; for i:=1 to 3 do for j:=i+1 to 4 do if (a+a[j] mod 2 <>0) and (a*a[j]mod 13 = 0)then k+=1; for i:= 5 to n do begin readln(a[5]); for r:= 1 to 4 do if (a[5]+a[r] mod 2 <>0) and (a[5]*a[r]mod 13 = 0)then k+=1; for j:=1 to 4 do a[j]:=a[j+1]; end; writeln(k); end.
Ответов - 2
cabanov.alexey: главная ошибка - сумма и произведение в условиях должна быть в скобках. [pre2] if ((a[ i]+a[j]) mod 2 <>0) and ((a[ i]*a[j])mod 13 = 0)then k+=1; if ((a[5]+a[r]) mod 2 <>0) and ((a[5]*a[r])mod 13 = 0)then k+=1; [/pre2]
Саша час: Огромное вам спасибо
полная версия страницы