Algoritmos

Leia dois números, faça a multiplicação e apresente o cálculo caso seja maior do que 100

Curta Nossa Página

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.

Etiquetas
Botão Voltar ao topo