e_121_04.f90

来自「fortran 教程」· F90 代码 · 共 12 行

!----- 乘方---
! 输入10, 100, 1000
INTEGER :: m, n
PRINT*, "Input an integer:"
READ*, n
   m = n
   m = m*n ; PRINT*, m
   m = m*n ; PRINT*, m
   m = m*n ; PRINT*, m
   m = m*n ; PRINT*, m
END