Pagini recente » Borderou de evaluare (job #2059012) | Cod sursa (job #2735540) | Monitorul de evaluare | Borderou de evaluare (job #2793372) | Cod sursa (job #163847)
Cod sursa(job #163847)
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.