Cod sursa(job #2325329)
Utilizator | Data | 22 ianuarie 2019 15:15:29 | |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 50 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.41 kb |
program alg_Euclid;
var
f, g: text;
n, i: integer;
a, b, rez: longint;
function cmmdc(x, y: longint): longint;
begin
if (y = 0) then cmmdc := x
else
cmmdc := cmmdc(y, x mod y);
end;
begin
assign(f,'euclid2.in');
reset(f);
assign(g,'euclid2.out');
rewrite(g);
readln(f,n);
for i:=1 to n do
begin
readln(f,a,b);
writeln(g,cmmdc(a,b));
end;
close(f);
close(g);
end.