Leia dois números, faça a subtração e caso o resultado seja menor do que 0 apresentar número negativo
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.
Veja também:
