Cod sursa(job #637178)
Utilizator | Data | 20 noiembrie 2011 12:38:00 | |
---|---|---|---|
Problema | Algoritmul lui Euclid | Scor | 30 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.49 kb |
program asdadadad;
VAR f,g:text;
t,a,b:longint;
r:integer;
Begin
Assign(f,'euclid2.in');Reset(f);
Assign(g,'euclid2.out');Rewrite(g);
readln(f,t);
while not eof(f) do begin
readln(f,a,b);
r:=1;
while r<>0 do begin
r:=a mod b;
a:=b;
b:=r;
end;
writeln(g,a);
end;
Close(f);Close(g);
end.