• Matéria: Informática
  • Autor: AllysonW9
  • Perguntado 9 anos atrás

programa que recebe dois numeros e exiba o resultado de sua soma

Respostas

respondido por: josesilvar
0
var 
// Declação das variáveis 
n1, n2, soma : inteiro 
inicio 
// Seção de Comandos 

Escreva("Informe o valor de n1: ") 
Leia(n1) 

Enquanto ( n1 <= 10 ) Faca 
Escreva("O valor de n1 deve ser maior que 10. Informe outro valor:") 
Leia(n1) 
FimEnquanto 

Escreva("Informe o valor de n2: ") 
Leia(n2) 

Enquanto ( n2 = n1 ) Faca 
Escreva("O valor de n2 deve ser diferente de n1. Informe outro valor:") 
Leia(n2) 
FimEnquanto 

soma <- n1 + n2 

Escreva("O resultado da soma é: ", soma) 


fimalgoritmo 

ribass: procedure MostraSoma(n1;n2: Integer)
ribass: var iSoma : Integer;
ribass: Begin
ribass: ShowMessage('O Resultado da Soma é: '+InttoStr(n1+n2));
ribass: end;
Perguntas similares