Cod sursa(job #218464)
Utilizator | Grigoroi Alexandru sandu2508 | Data | 2 noiembrie 2008 10:37:44 |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.42 kb |
program fractii;
label
001;
var
a, b, i, j, n: longint;
f: text;
begin
assign (f, 'fractii.in');
reset(F);
readln(f, n);
close(F);
b:=0;
for i:=1 to n do
for j:=i to n do
begin
for a:= 2 to i do
if i mod a = 0 then
if j mod a = 0 then
goto 001;
b:=b+2;
001:;
end;
b:=b-1;
assign(f, 'fractii.out');
rewrite(f);
writeln(f, b);
close(f);
end.