Ler um número e se ele for maior que 20 exibir a metade do número e se for menor exibir o dobro
Pseudocódigo:
programa exercicio11
var
numero : real;
inicio
leia numero;
se (numero > 20) entao
numero ← ( numero / 2)
senao
numero ← ( numero * 2 );
fim_se;
escreva numero;
fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 20/03/2014
Program exercicio11;
uses crt;
var
numero : real;
Begin
writeln('Insira um número');
readln(numero);
if (numero > 20) then
numero := (numero / 2)
else
numero := (numero * 2);
writeln('Numero = ', numero:0:1);
writeln('Pressione para fechar');
readkey;
End.
Veja também:
