Cod sursa(job #586570)
| Utilizator | Data | 2 mai 2011 13:42:36 | |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.46 kb |
Program Euclid_Optimizat;
var f1,f2:text;
r,i,t,x,y:longint;
Function CMMDC(x,y:longint) : longint;
var r:longint;
begin
while r<>0 do
begin
r:=x mod y;
x:=y;
y:=r;
end;
CMMDC:=x;
end;
begin
assign(f1,'euclid2.in'); reset(f1);
assign(f2,'euclid2.out'); rewrite(f2);
readln(f1,t);
for i:=1 to t do
begin
readln(f1,x,y);
r:=cmmdc(x,y);
writeln(f2,r);
end;
close(f1); close(f2);
end.
