10 lines
154 B
Text
10 lines
154 B
Text
call Evaluation()
|
|
end
|
|
|
|
subroutine Evaluation()
|
|
lo = 1 : hi = 100 : temp = 0
|
|
for i = lo to hi
|
|
temp += (1/i) ##r(i)
|
|
next i
|
|
print temp
|
|
end subroutine
|