23.11.2018

 

a .

b.

b

For i:=1 to 10 do

B[i] :=0;

 

: ,

For i:=1 to n do

Begin

Readln(a);

B[(a mod 10)+1]:= B[(a mod 10)+1]+1;

End;

 

1..4 6..9

For i:=2 to 5 do

S:=s+b[i]*b[12-i]; !