PROGRAM Multiplicar
!
! Programa que calcula multiplicaciones de un numero n desde 1 hasta k
!ç
IMPLICIT NONE
INTEGER :: k, j, n, y
WRITE(*,*) 'Programa que calcula multiplicaciones de un numero n desde 1 hasta k'
WRITE(*,*) ''
WRITE(*,*) 'Numero a multiplicar (n)'
READ (*,*) n
WRITE(*,*) ''
WRITE(*,*) 'Limite maximo (k)'
READ (*,*) k
WRITE(*,*) 'Iteracion, Resultado'
do j=1,k
y=n*j
write (*,*)'', j, y
end do
STOP
end program Multiplicar
Espero que te sirva
Dudas o comentarios: nhslag@gmail.com
