Pagini recente » Istoria paginii problema/aprindere | Borderou de evaluare (job #868415) | Cod sursa (job #1986821) | Cod sursa (job #2884250) | Cod sursa (job #15246)
Cod sursa(job #15246)
program fractii;
var
n, v: longint;
f: text;
function EsteIreductibil(x, y: longint): boolean;
var i: longint;
begin
EsteIreductibil := true;
for i := 2 to n do begin
if (x mod i = 0) and (y mod i = 0) then begin
EsteIreductibil := false;
Break;
end;
end;
end;
var
i, j: longint;
begin
Assign(f, 'fractii.in');
Reset(f);
Read(f, n);
Close(f);
for i := 1 to n do begin
for j:= 1 to i do begin
if EsteIreductibil(i, j) then inc(v);
if (EsteIreductibil(j, i)) and (i <> j) then inc(v);
end;
end;
Assign(f, 'fractii.out');
Rewrite(f);
Write(f, v);
Close(f);
end.