Cod sursa(job #309075)
Utilizator | Data | 29 aprilie 2009 16:11:25 | |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.49 kb |
program cmmdc;
var a,b,c:array[1..100000] of longint;
fin,fout:text;
t,i:longint;
function euclid(var a,b:longint):longint;
var k:longint;
begin
while (a mod b) <>0 do
begin
k:=a mod b;
a:=b;
b:=k;
end;
euclid:=b;
end;
begin
assign(fin,'cmmdc.in'); reset(fin);
assign(fout,'cmmdc.out'); rewrite(fout);
readln(fin,t);
for i:=1 to t do
readln(fin,a[i],b[i]);
close(fin);
for i:=1 to t do
c[i]:=euclid(a[i],b[i]);
for i:=1 to t do
writeln(fout,c[i]);
close(fout);
end.