F90: Divisão de dois números inteiros

From AdonaiMedrado.Pro.Br
Jump to: navigation, search

Problema

Fazer um programa capaz de mostrar a resposta da divisão entre dois números inteiros.

Solução

PROGRAM aula1e3
	IMPLICIT NONE
	INTEGER :: a, b
	WRITE (*,*) 'Digite o dividendo: '
	READ (*,*) a
	WRITE (*,*) 'Digite o divisor: '
	READ (*,*) b
	WRITE (*,*) 'A divisão inteira de a por b é igual a ', a/b
END PROGRAM aula1e3