F90: Soma de dois números inteiros

From AdonaiMedrado.Pro.Br
Revision as of 10:18, 9 September 2008 by Adonaimedrado (Talk | contribs) (→‎Solução)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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"