Nu aveti permisiuni pentru a descarca fisierul grader_test28.ok
Cod sursa(job #1169186)
| Utilizator | Data | 10 aprilie 2014 17:25:03 | |
|---|---|---|---|
| Problema | Algoritmul lui Euclid extins | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.67 kb |
program euclid_extins;
var a,b,c,d,x,y,t:longint;
procedure euclid(a,b:longint; var d,x,y:longint);
var x0,y0:longint;
begin
if b=0 then
begin
d:=a;
x:=1;
y:=0;
end else
begin
euclid(b,a mod b,d,x0,y0);
x:=y0;
y:=x0-(a div b)*y0;
end;
end;
begin
assign(input,'euclid3.in');
assign(output,'euclid3.out');
reset(input);
rewrite(output);
readln(t);
while t>0 do
begin
readln(a,b,c);
euclid(a,b,d,x,y);
if c mod d<>0 then writeln('0 0')
else writeln(x*(c div d),' ',y*(c div d));
dec(t);
end;
close(output);
end.
