Cod sursa(job #4073)
| Utilizator |  Andrei Purice Protoman |
Data | 30 decembrie 2006 10:24:50 |
|---|---|---|---|
| Problema | Fractii | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var n,nr,i,j,a,b,c:longint; f1,f2:text;
begin
assign(f1,'fractii.in');
reset(f1);
assign(f2,'fractii.out');
rewrite(f2);
read(f1,n);
for i:=2 to n do
for j:=2 to n do begin
a:=i;
b:=j;
while b>1 do begin
c:=a mod b;
a:=b;
b:=c;
end;
if b=1 then inc(nr);
end;
nr:=nr+2*n-1;
write(f2,nr);
close(f1);
close(f2);
end.