Cod sursa(job #1818890)

Utilizator MogekoValeria Izvoreanu Mogeko Data 29 noiembrie 2016 22:12:47
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
Program P1;
  var fi,fo:text;
      a,b,d:integer;
begin
    assign(fi,'cmmdc.in');
    assign(fo,'cmmdc.out');
    reset(fi);
    rewrite(fo);
    read(fi,a,b);
    while a<>b do
          If a>b then a:=a-b else b:=b-a;
    If a=1 then d:=0 else d:=a;
    write(fo,d);
    close(fi);
    close(fo);
end.