fork download
copy 
  1. var n, m, y, i, j, c: integer;
  2. b: Boolean;
  3. begin
  4.   read(n, m, y);
  5.   b := false;
  6.   for i := 0 to m - 1 do begin
  7.     c := 1;
  8.     for j := 1 to n do begin
  9.       c := (c * i) mod m;
  10.     end;
  11.     //write(c, ' ');
  12.     if c = y then begin
  13.       write(i, ' ');
  14.       b := true;
  15.     end;
  16.   end;
  17.   if b = false then
  18.     write(-1);
  19. end.
Success #stdin #stdout 0s 9120KB
comments (?)
stdin
copy 
2 6 4
stdout
copy 
2 4
https://ideone.com/MgSBmy
language:
Pascal (gpc 20070904)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!