Cod sursa(job #543898)
Utilizator | Data | 28 februarie 2011 18:28:29 | |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 50 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.47 kb |
program pascal;
var a,b:longint;
fin,fout:text;
n:integer;
i:integer;
function cmmdc(aa:longint; bb:longint):longint;
var rest:longint;
begin
while (bb <> 0) do begin
rest:=aa mod bb;
aa:=bb;
bb:=rest;
end;
cmmdc:=aa;
end;
begin
assign(fin, 'euclid2.in'); reset(fin);
assign(fout, 'euclid2.out'); rewrite(fout);
readln(fin, n);
for i:=1 to n do begin
readln(fin, a, b);
writeln(fout, cmmdc(a,b));
end;
close(fin);
close(fout);
end.