Cod sursa(job #317535)

Utilizator grigiqGRIG T. grigiq Data 23 mai 2009 21:06:40
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.34 kb
Raporteaza aceasta sursa 
program euclid;
var a,b,n:longint;

begin
assign(input,'euclid2.in');
assign(output,'euclid2.out');
reset(input);
rewrite(output);
readln(input);
repeat
readln(input,a,b);
while (a mod b<>0)and(b mod a<>0) do
if a>b then a:=a mod b
else b:=b mod a;
if a>=b then writeln(output,b) else writeln(output,a);
until eof(input);

end.