Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: PASCAL
Code:
var
  rem : array[0..11] of integer;
  N, i, x : integer;
  m : longint;
begin
  for i := 0 to 11 do
    rem[i] := 0; 
  readln(N);
  for i := 1 to N do begin
    readln(x);
    inc(rem[x mod 12])
  end;
  m := (rem[0] * (rem[0] - 1) + rem[6] * (rem[6] - 1)) div 2;
  for i := 1 to 5 do
    m := m + rem[i] * rem[12 - i];
  writeln(m)
end.
Comments: