Cod sursa(job #143245)

Utilizator Pepelea_FlaviuFlaviu Pepelea Pepelea_Flaviu Data 26 februarie 2008 08:44:01
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 kb
Raporteaza aceasta sursa 
var fi,fo:text;
function cmmdc(a,b:longint):longint;
begin
  if b=0 then cmmdc:=a
    else cmmdc:=cmmdc(b,b mod a);
end;
var a,b:longint;
begin
  assign(fi,'euclid2.in'); reset(fi);
  assign(fo,'euclid2.out'); rewrite(fo);
  read(fi,a,b);
  writeln(fo,cmmdc(a,b));
  close(fi);
  close(fo);
end._