Cod sursa(job #144086)

Utilizator free2infiltrateNezbeda Harald free2infiltrate Data 27 februarie 2008 10:47:03
Problema Algoritmul lui Euclid extins Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.75 kb
program asd;
var a,b,c,t,i,x,y : longint;
    q,j : shortint;
    ok : boolean;
    f,g : text;
begin
assign(f,'euclid3.in');
reset(f);
assign(g,'euclid3.out');
rewrite(g);

readln(f,q);

for j := 1 to q do begin

readln(f,a,b,c);

x := a;
y := b;
ok := true;

while x <> 1 do begin
while y <> 0 do begin
t := y;
y := x mod y;
x := t;
end;
writeln(x);
if c mod x <> 0 then begin
                     ok := false;
                     break;
                     end;
c := c div x;
a := a div x;
b := b div x;
x := a;
y := b;
end;

if ok then begin
for i := 1 to c do begin
x := i;
y := (c-a*x) div b;
if a*x+b*y=c then break;
end;
writeln(g,x,' ',y);
end
else
writeln(g,0,' ',0);
end;

close(f);
close(g);
end.