uses crt; var d:text; n,k,i,j,t,dem:longint; a:array[1..100000]of longint; begin clrscr; assign(d,'input.pas');reset(d); readln(d,n,k); for i:=1 to n do readln(d,a[i]); close(d); assign(d,'output.pas');rewrite(d); for i:=1 to n do begin t:=0; for j:=i to n do begin t:=t+a[j]; if t mod k=0 then inc(dem); end; end; writeln(d,dem); close(d); readln end.
