1
anonymous e 1000 桁計算
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
Don't you submit code?
Submit
1
年末年始は機械学習・深層学習を勉強しませんか?
広告
未経験から最短でエンジニアへの転職を目指すなら