while True:

問題2

正の整数 𝑚, 𝑛 (𝑚 < 𝑛) を読み込んで,𝑚 から 𝑛 までの整数の和 𝑚 + (𝑚 + 1) + ⋯ + (𝑛 −1) + 𝑛 を求め,結果が公式 (𝑚 + 𝑛)(𝑛 − 𝑚 + 1)⁄2 によって計算した結果と一致することを確かめるプログラムを作れ.

難易度 ★☆☆☆☆

基本的な問題です。繰り返し行いたい処理がある場合はDOを用います。 DO演算子はこちらをご参照ください。
program question2
	implicit none
	integer :: m, n, i, total1, total2
	print *, "Input m, n: "
	read *, m, n

	total1 = 0
	do i = m, n
		total1 = total1 + i
	end do

	total2 = (m + n) * (n - m + 1) / 2
	print *, "total1 = ", total1
	print *, "total2 = ", total2
end program question2
ページのトップへ戻る