Cod sursa(job #274917)
| Utilizator | Data | 10 martie 2009 08:41:11 | |
|---|---|---|---|
| Problema | Lista lui Andrei | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.51 kb |
const r=104659;
var f,g:text;
a:array['a'..'z','a'..'z']of 0..1;
x,c1,c2:char;
k,i,m,n,p:longint;
begin
assign(f,'nrcuv.in');
reset(f);
assign(g,'nrcuv.out');
rewrite(g);
readln(f,n,m);
for i:=1 to m do
begin
read(f,c1,x,c2);
if a[c1,c2]=0 then
if c1=c2 then begin k:=k+1; a[c1,c2]:=1; end
else begin k:=k+2;a[c1,c2]:=1;a[c2,c1]:=1;end;
end;
p:=sqr(26)-k;
p:=p*(n-1);
for i:=1 to n-2 do
p:=(p*26)mod r;
write(g,p);
close(g);
end.
