Форум » Обработка числовых последовательностей » C4 № 82 » Ответить
C4 № 82
oval: Решение моего ученика: [pre2]var a: array [0..4] of integer; i, j, N, K, p: integer; begin K := 0; readln(N); if N > 5 then begin for p := 0 to 4 do readln(a[p]); {считали первые 5 элементов} for i := 0 to 3 do for j := i + 1 to 4 do {поиск нужных пар} if ((a[ i] + a[j]) mod 2 <> 0) and ((a[ i] * a[j]) mod 13 = 0) then K := K + 1; for p := 5 to N - 1 do {обработка оставшихся элементов} begin for i := 0 to 3 do a[ i] := a[ i + 1]; {сдвиг массива} readln(a[4]); for i := 0 to 3 do {проверка нового элемента} if ((a[ i] + a[4]) mod 2 <> 0) and ((a[ i] * a[4]) mod 13 = 0) then K := K + 1; end; end else begin {случай N <= 5} for p := 0 to N - 1 do readln(a[p]); for i := 0 to N - 2 do for j := i + 1 to N - 1 do if ((a[ i] + a[j]) mod 2 <> 0) and ((a[ i] * a[j]) mod 13 = 0) then K := K + 1; end; writeln(K); end.[/pre2] оценивается в 4 балла?
Ответов - 0
полная версия страницы