Cod sursa(job #1192731)

Utilizator stefan212121neacsu stefan stefan212121 Data 29 mai 2014 17:10:57
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
var n,i,r:longint;
    a,b:array[1..100000]of qword;
    f:text;
begin
assign(f,'euclid2.in');reset(f);
readln(f,n);

for i:=1 to n do
readln(a[i],b[i]);
assign(f,'euclid2.out');rewrite(f);i:=0;

repeat
i:=i+1;
while b[i]<>0 do
begin
r:=a[i] mod b[i];
a[i]:=b[i];
b[i]:=r;
end;
writeln(f,a[i]);
until i=n;
close(f);
end.