Cod sursa(job #30143)
Utilizator | Data | 12 martie 2007 23:03:03 | |
---|---|---|---|
Problema | Divk | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.58 kb |
var v:array[1..100000] of longint;
n,k,i,j,a,b,nr,s,p:longint;
f:text;
procedure citire;
begin
assign(f,'divk.in');reset(f);
readln(f,n,k,a,b);
for i:=1 to n do readln(f,v[i]);
close(f);
end;
procedure caut;
begin
i:=1;
while (i<=n-a+1)do begin
j:=i;s:=0;p:=0;
while (p<b)and(j<=n) do begin
p:=p+1;
s:=s+v[j];
if p>=a then if s mod k = 0 then inc(nr);
j:=j+1;
end;
i:=i+1;
end;
end;
begin
citire;
nr:=0;
caut;
assign(f,'divk.out');rewrite(f);
writeln(f,nr);
close(f);
end.