Pagini recente » Cod sursa (job #456204) | Cod sursa (job #2625473) | Cod sursa (job #2116815) | Cod sursa (job #1378533) | Cod sursa (job #274917)
Cod sursa(job #274917)
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.