Cod sursa(job #386065)

Utilizator valytgjiu91stancu vlad valytgjiu91 Data 23 ianuarie 2010 22:56:56
Problema Invers modular Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
var f,g:text;
n,x,i,a:longint;
begin
assign(f,'inversmodular.in');
reset(f);
assign(g,'inversmodular.out');
rewrite(g);
readln(f,a,n);
for i:=1 to n-1 do
  if (n*i+1)mod a=0 then
             begin
             x:=(n*i+1)div a;
             writeln(g,x);
             close(g);
             break;
             end;
end.