Cod sursa(job #766605)

Utilizator EireneApostol Irina Eirene Data 11 iulie 2012 17:59:25
Problema Algoritmul lui Euclid extins Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.4 kb
Program p;
var f1,f2:text;
k,i:byte;
x,y,a,b,c:longint;
w:boolean;
begin
assign(f1,'euclid3.in');
reset(f1);
assign(f2,'euclid3.out');
rewrite(f2);
readln(f1,k);
for i:=1 to k do begin
readln(f1,a,b,c);w:=false;
for x:=-2000000000 to 2000000000 do
for y:=-2000000000 to 2000000000 do
if (a*x+b*y=c) and (w=false) then begin writeln(f2,x,' ',y);w:=true;end;
end;
close(f1);
close(f2);
end.