Cod sursa(job #364420)
Utilizator | Simoiu Robert SpiderMan | Data | 15 noiembrie 2009 17:41:44 |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.51 kb |
program fractii;
var p,q,c,n,a,b,r : longint;
f,g:text;
begin
assign(f,'fractii.in');
reset(f);
readln(f,n);
close(f);
assign(g,'fractii.out');
rewrite(g);
p:=1;
q:=1;
c:=0;
while p<=n do
begin
while q<=n do
begin
a:=p;
b:=q;
repeat
r:=a mod b;
a:=b;
b:=r;
until r=0;
if (a=1) or ((p=1) or (q=1)) then
begin
c:=c+1;
q:=q+1;
end
else
q:=q+1;
end;
p:=p+1;
q:=1;
end;
writeln(g,c);
close(g);
end.