
Fortran
real :: m(1000) = 1
do j = 1, 2000, 2
do i = 1000, 2, -1
n = 10*m(i) + k
k = n / i
m(i) = n - k * i
end do
print'(ag0$)','2.'(j:),k
end do
end
real :: m(1000) = 1
do j = 1, 2000, 2
do i = 1000, 2, -1
n = 10*m(i) + k
k = n / i
m(i) = n - k * i
end do
print'(ag0$)','2.'(j:),k
end do
end