Cod sursa(job #1417633)
Utilizator | Data | 10 aprilie 2015 18:18:04 | |
---|---|---|---|
Problema | Invers modular | Scor | 50 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.51 kb |
const
f1='inversmodular.in';
f2='inversmodular.out';
var
a,b,x,y:longint;
procedure euclid(a,b:longint;var x,y:longint);
var x1,y1:longint;
begin
if b=0 then
begin
x:=1;
y:=0;
end
else
begin
euclid(b,a mod b,x1,y1);
x:=y1;
y:=x1-((a div b)*y1);
end;
end;
begin
assign(input,f1); reset(input);
assign(output,f2); rewrite(output);
readln(a,b);
euclid(a,b,x,y);
close(input);
write(x);
close(output);
end.