Pagini recente » Borderou de evaluare (job #2431558) | Borderou de evaluare (job #1986140) | Borderou de evaluare (job #3219398) | Atasamentele paginii Profil pentrusanda | Cod sursa (job #624073)
Cod sursa(job #624073)
program trei;
var f,g: text;
nr,j,i:integer;
n:longint;
Begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
nr:=2*n-1;
for i:=2 to n do
for j:=2 to n do
if (i mod j <> 0) and (j mod i <> 0) then
nr := nr+1;
write(g,nr);
close(f);
close(g);
readln;
End.