Cod sursa(job #1570774)
| Utilizator |  Macovei Maria MACOVEIMARIA |
Data | 16 ianuarie 2016 20:17:49 |
|---|---|---|---|
| Problema | Algoritmul lui Euclid | Scor | 60 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.33 kb |
program euclid11;
var n,i,a,b,cmmdc,r:longint;
f1,f2:text;
begin
assign(f1,'euclid2.in');
assign(f2,'euclid2.out');
reset(f1);
rewrite(f2);
readln(f1,n);
for i:=1 to n do
begin
readln(f1,a,b);
while (b>0) do
begin
r:=a mod b;
a:=b;
b:=r;
end;
cmmdc:=a;
writeln(f2,cmmdc);
end;
close(f1);
close(f2)
end.
