Cod sursa(job #274917)

Utilizator batracorina dijmarescu batra 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.