Cod sursa(job #2442781)

Utilizator plugaruaPlugaru Andrei plugarua Data 25 iulie 2019 12:22:59
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
program divizor;
var a,b,temp,i,n:integer;
in_f,out_f:text;
begin
  assign(in_f,'euclid2.in');
  assign(out_f,'euclid2.out');
  reset(in_f);
  rewrite(out_f);
  readln(n);
  for i := 1 to n  do
    begin
  readln(a,b);
  
  while b <> 0 do
  begin
     temp := b;
    b := a mod b;
    a := temp;
  end;
  
writeln(out_f,a);
end;
end.