quynhphuonglqd
Rating
-
Bài tập
7
Điểm
2952
Rating
-
Điểm
9401
Giới thiệu
var s:ansistring; t:qword;n,i,k,m:longint;a:array[0..1000000] of longint;
begin
assign(input,'SUBSTR.INP');reset(input);
assign(output,'SUBSTR.OUT');rewrite(output);
readln(n);read(s);close(input);m:=length(s);t:=0;k:=0;
for i:=1 to m do
if s[i]='1' then begin inc(k);a[k]:=i;end;a[0]:=0;a[k+1]:=m+1;
for i:=1 to k-n+1 do
t:=t+(a[i]-a[i-1])*(a[i+n]-a[i+n-1]);
write(t);close(output);
end.