Leia 3 números e os apresente em ordem crescente
Pseudocódigo:
programa exercicio18
var
n1, n2, n3, x : inteiro;
inicio
leia n1;
leia n2;
leia n3;
se (n1 > n2) entao
x ← n1;
n1 ← n2;
n2 ← x;
fim_se;
se (n2 > n3) entao
x ← n2;
n2 ← n3;
n3 ← x;
fim_se;
se (n1 > n2) entao
x1 ← n1;
n1 ← n2;
n2 ← x;
fim_se;
fim.
Pascal:
// Autor: Rafael Oliveira
// Data: 24/03/2014
Program exercicio18;
uses crt;
var
n1, n2, n3, x : integer;
Begin
writeln('Insira Numero 1');
readln(n1);
writeln('Insira Numero 2');
readln(n2);
writeln('Insira Numero 3');
readln(n3);
if (n1 > n2) then
begin
x := n1;
n1 := n2;
n2 := x;
end;
if (n2 > n3) then
begin
x := n2;
n2 := n3;
n3 := x;
end;
if (n1 > n2) then
begin
x := n1;
n1 := n2;
n2 := x;
end;
writeln('Ordem Crescente: ', n1, ', ' ,n2, ' ,' ,n3);
writeln('Pressione para fechar');
readkey;
End.
Veja também:
