Leia dois números, faça a multiplicação e apresente o cálculo caso seja maior do que 100
Pseudocódigo:
programa exercicio13
var
n1, n2, multiplicacao : real;
inicio
leia n1;
leia n2;
multiplicacao ← (n1 * n2);
se (multiplicacao > 100) entao
escreva multiplicacao;
fim_se;
fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 20/03/2014
Program exercicio13;
uses crt;
var
n1, n2, multiplicacao : real;
Begin
writeln('Insira um Numero');
readln(n1);
writeln('Insira um Numero');
readln(n2);
multiplicacao := (n1 * n2);
if (multiplicacao > 100) then
writeln(n1:0:0, ' * ', n2:0:0, ' = ', multiplicacao:0:0);
writeln('Pressione para fechar');
readkey;
End.
Veja também:
