Algoritmos

Leia dois números, faça a subtração e caso o resultado seja menor do que 0 apresentar número negativo

Curta Nossa Página

Pseudocódigo:

programa exercicio14
var
  n1, n2, subtracao : real;
inicio
   leia n1;
   leia n2;
   subtracao ← (n1 - n2);
   se (subtracao < 0) entao
     escreva "Numero Negativo";
   fim_se;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 20/03/2014
Program exercicio14;
 uses crt;
 var
 n1, n2, subtracao : real;
 Begin
 writeln('Insira um Numero');
 readln(n1);
 writeln('Insira um Numero');
 readln(n2); 
 subtracao := (n1 - n2);
 	if (subtracao < 0) then
 	  writeln('O numero ', subtracao:0:0, ' = Numero Negativo');
 writeln('Pressione para fechar');
 readkey;  
End.

Etiquetas
Botão Voltar ao topo
Fechar