Cod sursa(job #2848220)
Utilizator | Data | 12 februarie 2022 11:20:43 | |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.57 kb |
Program euclid;
var m, i, a, b, r, n : longint;
fout, fin : text;
function solve(a : longint; b : longint) : longint;
var c : longint;
begin
while b <> 0 do begin
c:= a;
a:= b;
b:= c mod b;
end;
solve:= a;
end;
begin
Assign(fin, 'euclid2.in');
Assign(fout, 'euclid2.out');
Reset(fin);
Rewrite(fout);
Readln(fin, n);
for i:=1 to n do begin
Readln(fin, a, b);
r:= solve(a, b);
Writeln(fout, r);
end;
Close(fin);
Close(fout);
end.