Cod sursa(job #285231)

Utilizator SprzlAbcdefg Sprzl Data 22 martie 2009 14:08:34
Problema Algoritmul lui Euclid Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.43 kb
program suma;
const fin = 'euclid2.in';
      fout = 'euclid2.out';
var r,a,b:longint;
begin
  {citire}
  assign(input,fin);
  assign(output,fout);
  reset(input);
  rewrite(output);
  readln(a);
  while not(eof()) do
  begin
    readln(a,b);
      while b>0 do
      begin
        r:=a mod b;
        a:=b;
        b:=r;
      end;
      writeln(a);
  end;

  {tipar}




  close(input);
  close(output);
end.