Cod sursa(job #143568)

Utilizator antoanelaAntoanela Siminiuc antoanela Data 26 februarie 2008 17:51:25
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
program euclid2;
var f,g:text;
    a,b:longint;
begin
assign(f,'euclid2.in');
assign(g,'euclid2.out');
reset(f);
rewrite(g);
read(f,a,b);
if (a=0)then write(g,b) else
if (b=0)then write(g,a) else
begin
  while (a<>b)do
    if (a>b)then
      a:=a-b else
      b:=b-a;
  write(G,a);
end;
close(f);
close(G);
end.