Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program G;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- n, a, i, i1, j: integer;
- m: int64;
- begin
- readln (n);
- for i := 1 to n do begin
- read (a);
- m := 1;
- j := 0;
- if (a = 1) or (a = 2) or (a = 3) then begin
- writeln (a, ' ', 1);
- continue;
- end;
- for i1 := 2 to trunc(sqrt(a)) do begin
- while (m < a) do begin
- m := m * i1;
- inc (j);
- end;
- if (m = a) then begin
- writeln (i1, ' ', j);
- break;
- end
- else if (i1 = trunc(sqrt(a))) then begin
- writeln (a, ' ', 1);
- break;
- end
- else begin
- m := 1;
- j := 0;
- continue;
- end;
- end;
- end;
- readln;
- readln;
- end.
RAW Paste Data