F90: Soma de dois números inteiros

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

Problema

Fazer um programa capaz de mostrar o resultado da soma de dois números inteiros.

Solução

PROGRAM aula1e2
	IMPLICIT NONE
	INTEGER :: a, b
	WRITE (*,*) "Digite o primeiro número: "
	READ (*,*) a
	WRITE (*,*) "Digite o segundo número: "
	READ (*,*) b
	WRITE (*,*) "A soma de A+B é ",a+b
END PROGRAM aula1e2
Retrieved from "https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Soma_de_dois_números_inteiros&oldid=282"