chap06/kadai2.f90

サンプルコードのダウンロード

 1program answer
 2  implicit none
 3
 4  integer :: i, j
 5
 6  do i = 1, 9
 7    do j = 1, 9
 8      write(*, fmt='(i4)', advance='no') i * j
 9    enddo
10    write(*, *)
11  enddo
12
13  stop
14endprogram answer