Cod sursa(job #589705)
| Utilizator |  Dragan Andrei Gabriel dragangabriel |
Data | 13 mai 2011 14:42:11 |
|---|---|---|---|
| Problema | Invers modular | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.22 kb |
var f,g:text;
a,n,i,j,k:longint;
begin
assign(f,'inversmodular.in');reset(f);
assign(g,'inversmodular.out');rewrite(g);
readln(f,a,n);
for i:=1 to n do if (a*i)mod n=1 then begin
write(g,i);
close(g);
exit;
end;
end.