Cod sursa(job #144089)

Utilizator andreeadimaDima Andreea andreeadima Data 27 februarie 2008 10:52:25
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.27 kb
program aa;
var f,g:text;
    a,b,d:int64;
begin
assign(f,'euclid2.in');
assign(g,'euclid2.out');
reset(f);
rewrite(g);
read(g,a,b);
while(a<>b) do begin
if (a>b) then a:=a-b
         else if (b>a) then b:=b-a;
end;
d:=a;
write(f,d);
close(f);
close(g);
end.