Cod sursa(job #12552)
| Utilizator |  Florin Ghesu floringh06 |
Data | 4 februarie 2007 12:23:00 |
|---|---|---|---|
| Problema | Fractii | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
var fi,fo:text;
a,b,n,i,j,ct:longint;
begin
assign(fi,'fractii.in'); reset(fi);
assign(fo,'fractii.out'); rewrite(fo);
readln(fi,n);
ct:=1;
for i:=1 to n do
for j:=1 to i-1 do
begin
a:=i;
b:=j;
while a<>b do
if a>b then a:=a-b
else b:=b-a;
if a=1 then inc(ct,2);
end;
write(fo,ct);
close(fi);
close(fo);
end.
