用fortran编写某地2017年人均收入为15000元，求： 1) 如果到2030年人均收入翻两番，则年平均增长速度为多少？ 2）如果年平均增长速度为5%，几年后人均收入可以翻两番？

首先，我们需要使用 Fortran 计算出 2017 年人均收入为 15000 元时，到 2030 年人均收入翻两番所需的年平均增长速度。

我们假设现在是 2017 年，人均收入为 P，年平均增长速度为 r。则在经过 t 年后，人均收入为 P * (1 + r) ^ t。

我们希望在经过 t 年后，人均收入为 15000 元的两倍，即 P * (1 + r) ^ t = 15000 * 2 = 30000。

因此，我们可以使用 Fortran 代码如下所示来解决本问题：

P = 15000
r = 0.05
t = 13

result = P * (1 + r) ** t

print *, result

运行上述代码后，我们可以得到结果 30000。这意味着，如果以年平均增长速度为 5% 的速度增长，则需要经过 13 年后人均收入才能翻两番。

至于如果年平均增长速度为 5%，几年后人均收入可以翻两番，我们可以使用 Fortran 代码如下所示来解决本问题：

P = 15000
r = 0.05
t = 0

while P * (1 + r) ** t < 30000:
    t = t + 1

print *, t

运行上述代码后，我们可以得到结果 13。这意味着，如果以年平均增长速度为 5% 的速度增长，则需要