Cod sursa(job #1966370)

Utilizator AvramDanielAvram Daniel AvramDaniel Data 15 aprilie 2017 10:45:41
Problema Algoritmul lui Euclid Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.53 kb
program euclid;

type numar=record
      nr1,nr2,di:word;
      end;

  var c:array[1..100010] of numar;
      n,a,b,i:word;
      fi,fo:text;


  function cmmdc(a,b:word):word;
  begin
  if a=0 then cmmdc:=b
    else cmmdc:=cmmdc(b mod a,a);

 end;
begin  assign(fi,'euclid2.in'); assign(fo,'euclid2.out');   reset(fi); rewrite(fo);
  readln(fi,n);
  for i:=1 to n do
     begin
     read(fi,c[i].nr1); readln(fi,c[i].nr2);
     writeln(fo,cmmdc(c[i].nr1,c[i].nr2));
     end;
   close(fi);
  close(fo);

  end.