Cod sursa(job #548999)
Utilizator | Data | 8 martie 2011 01:13:01 | |
---|---|---|---|
Problema | Light2 | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.49 kb |
var n:longint;
j,i,q,k,nr:longint;
f1,f2:text;
a:array[0..2100000000]of boolean;
begin
assign(f1,'light2.in');
reset(f1);
assign(f2,'light2.out');
rewrite(f2);
readln(f1,n);
readln(f1,k);
for i:=1 to k do
begin
read(f1,q);
j:=0;
while j+q<=n do
begin
inc(j,q);
if a[j] then a[j]:=false else a[j]:=true;
end;
end;
nr:=0;
for i:=1 to n do
if a[i] then inc(nr);
writeln(f2,nr);
close(f1);
close(f2);
end.