Cod sursa(job #163847)
Utilizator | Grigoroi Alexandru sandu2508 | Data | 23 martie 2008 11:24:43 |
---|---|---|---|
Problema | Jocul Flip | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.48 kb |
program fractii;
label
000;
var
i, j, n, k, s, p: longint;
f: text;
begin
s:=0;
assign(f, 'fractii.in');
reset(f);
readln(f, n);close(F);
for i:= 1 to n do
for j:= i to n do
begin
p:= 0;
for k:= 2 to i do
if i mod k = 0 then
if j mod k = 0 then
begin
p:= 1 ;
goto 000;
end;
000:;
if p = 0 then
s:= s +2;
end;
assign(F, 'fractii.out');
rewrite(F);
writeln(f, s);
close(F);
end.