Question

Ler 3 valores(considere que não serão informados valores iguais)e escrevê-los em ordemcrescente. (Visual G)

Answer 1

algoritmo "Numeros em ordem crescente"

var

A,B,C: inteiro

inicio

escreval("OBS: Digite números diferentes.")

escreva("1º número: ")

leia(A)

escreva("2º número: ")

leia(B)

escreva("3º número: ")

leia(C)

se(A = B) e (A = C) e (B = C) entao

       escreval("Todos são iguais")

fimse

    se(A < b) e (B < C) e (C > A) e (C > B) entao

       escreval(A,B,C)

fimse

    se(A < B) e (A < C) e (B > A) e (B > C) entao

       escreval(A,C,B)

fimse

    se(A > B) e (A < C) e (B < C) e (C > A) entao

       escreval(B,A,C)

fimse

    se(C < A) e (C < B) e (B > c) e (B > A) entao

       escreval(C,A,B)

fimse

    se(C < A) e (c < b) e (B < A) e (B > c) entao

       escreval(C,B,A)

fimse

    se(A > B) e (A > C) e (B < C) e (C < A) entao

       escreval(B,C,A)

fimse

fimalgoritmo

Execução em anexo.

Bons estudos!