Cod sursa(job #289761)

Utilizator katamashCatalin Tamas katamash Data 26 martie 2009 22:53:31
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.37 kb
Raporteaza aceasta sursa 
var i,j,ii,jj,c,n:longint; f:text;
begin
assign(f,'fractii.in');reset(f);read(f,n);close(f);
c:=0;
for i:=1 to n do
    for j:=1 to n do begin
        ii:=i; jj:=j;
        while ii<>jj do
              if ii>jj then ii:=ii-jj
                       else jj:=jj-ii;
        if ii=1 then c:=c+1;     end;
assign(f,'fractii.out');rewrite(f);write(f,c);close(f); end.