Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project2;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- x,a, m, i: integer;
- arr : array of integer;
- begin
- i:= 0;
- readln(m);
- SetLength(arr, m);
- for a:= 0 to m-1 do
- for x:= a to m-1 do
- begin
- if (x*x mod m) = (a mod m) then
- begin
- arr[i] := a;
- inc(i);
- end;
- end;
- write(arr[0], ' ');
- for i:= 1 to high(arr) do
- if (arr[i] <> 0) and (arr[i] <> arr [i-1]) then
- write(arr[i], ' ');
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement