Cod sursa(job #878250)
| Utilizator |  Mihai Ion linerunner |
Data | 14 februarie 2013 11:01:43 |
|---|---|---|---|
| Problema | Fractii | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.32 kb |
var f,g:text;
a,b,i,j,n:longint;
ct:int64;
begin
Assign(f,'fractii.in');Reset(f);
Assign(g,'fractii.out');Rewrite(g);
Readln(f,n);ct:=0;
For i:=1 to n do
For j:=i+1 to n do begin
a:=i;b:=j;
Repeat
If a>b then a:=a-b
else b:=b-a;
until a=b;
If (a=1) then ct:=ct+1;end;
ct:=2*ct+1;
write(g,ct);
close(g);close(f);end.