Cod sursa(job #764295)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 4 iulie 2012 18:01:42
Problema Invers modular Scor 50
Compilator fpc Status done
Runda Arhiva educationala Marime 0.46 kb
Program inversmodular;
 var t,x,y,c,d,i,a,b:longint;
     fi,fo:text;
procedure euclid(a,b:longint; var d,x,y:longint);
 var xo,yo:longint;
begin
 if b=0 then begin d:=a; x:=1; y:=0; end
 else begin euclid(b,a mod b,d,xo,yo); x:=yo; y:=xo-(a div b)*yo; end;
end;
begin
 assign(fi,'inversmodular.in');
  assign(fo,'inversmodular.out');
 reset(fi); rewrite(fo);
    readln(fi,a,b); c:=1; d:=0;
      euclid(a,b,d,x,y);
    writeln(fo,x);
 close(fo);
end.