Cod sursa(job #1187115)

Utilizator valen.valentinValentin Valeanu valen.valentin Data 17 mai 2014 17:24:02
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
program euclid2;
var
n,m,i,j,k,a,b: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);
k:=1;
while k<>0 do
begin
k:=a mod b;
a:=b;
if k<>0 then b:=k;
end;
writeln (f2,b);
end;
close (f1);
close (f2);
end.