Cod sursa(job #1044484)

Utilizator Alex1199Alex Bercea Alex1199 Data 29 noiembrie 2013 22:11:57
Problema Algoritmul lui Euclid Scor 60
Compilator fpc Status done
Runda Arhiva educationala Marime 0.49 kb
program divizori; uses crt;
   var f, g : text;
       a, c : int64;
       i, t : longint;
Begin
   Assign(g,'euclid2.in');
    reset(G);
    Assign(f,'euclid2.out');
     rewrite(F);
    readln(g,t);
     For i:=1 to t do
       Begin
        Readln(g,a,c);
          While a<>c do
             if a>c then
                      a:=a-c
                    else
                      c:=c-a;
             Writeln(f,A);
       End;
       Close(G);
       Close(F);
  Readln;
End.