Cod sursa(job #144088)

Utilizator ancutza_dcnAnca Diaconu ancutza_dcn Data 27 februarie 2008 10:51:11
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.26 kb
Raporteaza aceasta sursa 
program euclid;
var f,g:text;
    a,b,d:longint;
begin
assign(f,'euclid2.in');reset(f);
assign(g,'euclid2.out');rewrite(g);
read(f,a,b);
while(a<>b)do begin
if(a>b) then a:=a-b;
if(b>a) then b:=b-a;
end;
d:=a;
write(g,d);

close(f);
close(g);
end.