Advertisement
Darkrai1337

Untitled

Jan 8th, 2022
1,667
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.49 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7. var
  8.   x,a, m, i: integer;
  9.   arr : array of integer;
  10. begin
  11.   i:= 0;
  12.   readln(m);
  13.   SetLength(arr, m);
  14.   for a:= 0 to m-1 do
  15.     for x:= a to m-1 do
  16.     begin
  17.       if (x*x mod m) = (a mod m)  then
  18.       begin
  19.         arr[i] := a;
  20.         inc(i);
  21.       end;
  22.     end;
  23.      write(arr[0], ' ');
  24.   for i:= 1 to high(arr) do
  25.       if (arr[i] <> 0) and (arr[i] <> arr [i-1]) then
  26.         write(arr[i], ' ');
  27.  
  28.  
  29.  
  30. readln;
  31. end.
  32.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement