Cod sursa(job #316911)

Utilizator grigiqGRIG T. grigiq Data 21 mai 2009 16:05:25
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 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,n);
while n<>0 do begin
readln(input,a,b);
while a<>b do
 if a>b then a:=a- b else b:=b - a;
writeln(output,a);
n:=n-1;
end;
close(input);
close(output);
end.