Cod sursa(job #1701983)

Utilizator medicinedoctoralexandru medicinedoctor Data 14 mai 2016 13:28:06
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.36 kb
Raporteaza aceasta sursa 
var a,b,x:longint;

function dc:longint;
var q:longint;
begin
  while b<>0 do
  begin
    x:=a;
    a:=b;
    b:=x mod a;
  end;
  dc:=a;
end;

begin
  assign(input,'euclid2.in');
  reset(input);
  assign(output,'euclid2.out');
  rewrite(output);
  readln(x);
  while x>0 do
  begin
    readln(a,b);
    writeln(dc);
    x:=x-1;
  end;
end.