Cod sursa(job #634023)

Utilizator andrei_toaderToader Andrei Sorin andrei_toader Data 15 noiembrie 2011 14:39:05
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
program euclid;
var f,g:text;
    n,a,b,i:longint;

begin
 assign (f,'euclid2.in'); reset (f);
 assign (g,'euclid2.out'); rewrite (g);
 readln (f,n);
 for i:=1 to n do
 begin
  readln (f,a,b);
  while a<> b do
   if a>b then
    a:=a-b
   else
    b:=b-a;
   writeln (g,a);
 end;
 close (f);
 close (g);
end.