F90: Tabuada

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