Cod sursa(job #898387)

Utilizator Iandrei96Isaila Ioan Andrei Iandrei96 Data 28 februarie 2013 10:10:55
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.28 kb
var f,g:text;
    a,b,c,n,i:longint;
begin
 assign(f,'euclid.in');reset(f);
 assign(g,'euclid.out');rewrite(g);
 read(f,n,a,b);
 for i:=1 to n do
 begin
 while a mod b<>0 do
  begin
   c:=a mod b;
   a:=b;
   b:=c;
  end;
writeln(g,b);
end;
close(f);close(g);
end.