Cod sursa(job #132165)

Utilizator vladianavladiana micu vladiana Data 5 februarie 2008 11:38:16
Problema Lista lui Andrei Scor 45
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.67 kb
var fi,fo:text;
    n,m,i,j,k,lit1,lit2,rez:longint;
    a:array[1..26,1..26]of byte;
    sol:array[1..1000,1..26]of longint;
    s:string;
begin
  assign(fi,'nrcuv.in'); reset(fi);
  assign(fo,'nrcuv.out'); rewrite(fo);
  readln(fi,n,m);
  for i:=1 to m do
    begin
      readln(fi,s);
      lit1:=ord(s[1])-96; lit2:=ord(s[3])-96;
      a[lit1,lit2]:=1;
      a[lit2,lit1]:=1;
    end;
  for i:=1 to 26 do
    sol[1,i]:=1;
  for i:=2 to n do
    for j:=1 to 26 do
      for k:=1 to 26 do
        if a[k,j]=0 then sol[i,j]:=sol[i,j]+sol[i-1,k] mod 104659;
  for i:=1 to 26 do
    rez:=rez+sol[n,i] mod 104659;
  writeln(fo,rez);
  close(fi);
  close(fo);
end.