Pagini recente » Cod sursa (job #15959) | Borderou de evaluare (job #1204204) | Borderou de evaluare (job #16704) | Rezultatele filtrării | Cod sursa (job #218464)
Cod sursa(job #218464)
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.