Cod sursa(job #143555)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 26 februarie 2008 17:36:34
Problema Algoritmul lui Euclid extins Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.34 kb
Raporteaza aceasta sursa 
var a,b,c,i,n,y,x:longint;
f,g:text;
begin
assign(f,'euclid3.in');reset(f);
assign(g,'euclid3.out');rewrite(g);
read(f,n);
for i:=1 to n do begin
read(f,a,b,c);
if a+b>c then writeln(g,'0',' ','0')
         else begin
         y:=(c-a*b) div 5-1;
         x:=(c-b*y) div a;
writeln(g,x,' ',y);
end;
end;
close(f);
close(g);
end.