Cod sursa(job #724555)
| Utilizator |  Astalas Paul paul777 |
Data | 26 martie 2012 17:30:36 |
|---|---|---|---|
| Problema | Divk | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var v:array[1..500000]of longint;a,b,k,s,i,j,t,n:longint;f,g:text;
begin
assign(f,'divk.in');reset(f);assign(g,'divk.out');rewrite(g);
readln(f,n,k,a,b);t:=0;
for i:=1 to n do
readln(f,v[i]);
for i:=a to b-1 do begin s:=v[i];
for j:=i+1 to b do begin
if s mod k=0 then t:=t+1;
s:=s+v[j];end;end;write(g,t);
close(f);close(g);end.
