سلام
امیدوارم برنامه زیر کمکت کنه
Program main
implicit none
integer n
double precision sum
n=9283
call sumation (n, sum)
print*, sum
Pause
End
Subroutine sumation (n, sum)
implicit none
integer, intent(in) :: n
double precision, intent(out) :: sum
integer i
double precision a, b, c...