Cod sursa(job #604479)

Utilizator DarkWishMasterCebotari Vlad DarkWishMaster Data 22 iulie 2011 18:13:56
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
Raporteaza aceasta sursa 
var a,b,r,T,i:longint;   F,G:text;
begin
  assign(F, 'euclid2.in'); reset(F);
  assign(G, 'euclid2.out'); rewrite(G);
  for i:=1 to T do begin
   readln(F,a,b);
    while b<>0 do begin
     r:=a mod b;
     a:=b;
     b:=r;
    end;
  writeln(G, a);
 end;
close(F);
close(G);
end.