F90: Tabuada
From AdonaiMedrado.Pro.Br
Problema
Fazer um programa capaz de exibir a tabuada (somente da multiplicação) de um número N.
Solução
PROGRAM aula2e3 IMPLICIT NONE INTEGER :: N, C WRITE (*,*) "Digite o número para o qual deseja ver a tabuada: " READ (*,*) N DO C=0, 10 WRITE (*,*) N,"*",C,"=",N*C END DO END PROGRAM aula2e3