Discussion @ 1110. Power @ Timus Online Judge

Why WA on test#8?

Posted by Maigo Akisame (maigoakisame@yahoo.com.cn) 1 Jul 2004 04:51

program ural1110;
var
n,m,x,r,i:integer;
y:byte;
first:boolean;
begin
readln(n,m,y);
first:=true;
for x:=0 to m-1 do begin
    r:=1;
    for i:=1 to n do
      r:=(r*x) mod m;
    if r=y then begin
      if first then first:=false else write(' ');
      write(x);
    end;
end;
if first then writeln(-1) else writeln;
end.

Check your mail - I've sent you explanation of your mistake (-)

Posted by Dmitry 'Diman_YES' Kovalioff 1 Jul 2004 10:53

Re: Why WA on test#8?

Posted by MAZURENKO BOGDAN 8 Oct 2006 18:34

program ural1110;
var
n,m,x,r,i:longint;
y:longint;
first:boolean;
begin
readln(n,m,y);
first:=true;
for x:=0 to m-1 do begin
r:=1;
for i:=1 to n do
r:=(r*x) mod m;
if r=y then begin
if first then first:=false else write(' ');
write(x);
end;
end;
if first then writeln(-1) else writeln;
end.

Discussion of Problem 1110. Power