Cod sursa(job #493361)

Utilizator PlayLikeNeverB4George Marcus PlayLikeNeverB4 Data 17 octombrie 2010 21:32:28
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.38 kb
program euclid;
var f,g:text; i,t,a,b:longint;
function cmmdc(a,b:longint):longint;
var x,y,r:longint;
begin
r:=1;
While r>0 do
 begin
 r:=x mod y;
 x:=y;
 y:=r;
 end;
cmmdc:=x;
end;
begin
Assign(f,'euclid2.in'); Reset(f);
Assign(g,'euclid2.out');Rewrite(g);
Readln(f,t);
For i:=1 to t do
 begin
 Readln(f,a,b);
 Writeln(g,cmmdc(a,b));
 end;
Close(f); Close(g);
end.