Cod sursa(job #222272)
Utilizator | Data | 21 noiembrie 2008 17:50:54 | |
---|---|---|---|
Problema | Grigo | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.21 kb |
var n,m,nr,i:longint;
v:array[1..100000]of integer;
r:int64;
begin
read(n,m);
for i:=1 to m do begin
read(nr);
v[nr]:=1;
end;
for i:=1 to n do
if v[i]=0 then r:=(r*(i-1))mod 1000003;
end.