write a program thatprint on secreen the reselt of the following series:

d=1+2/x^2+3/x^3+.....r/x^r .
thanks

in perl,

$sum = 1;
$sum += $n/$x**$n foreach $n (2..$r);
print $sum;

I leave it to you to provide values for x and r.