vida loca

pensei bastante e cheguei aqui

[codebox]var
n_numeros : vetor[1..10] de real
num, cont,cont_num : inteiro
inicio
cont_num := 0
cont := 1
enquanto cont<= 10 faca
leia (n_numeros [cont])
cont:= cont + 1
fimenquanto
repita
cont:= 1
leia (num)
cont_num:= cont_num + 1
enquanto cont <= 10 faca
se (num) = (n_numeros [cont]) entao
escreva (num, n_numeros [cont])
fimse
cont := cont + 1
fimenquanto
ate cont_num = 5
fimalgoritmo[/codebox]

chegou um pouco tarde espero q ainda teja em tempo de ajudar
quando tiver duvida tente posta ate onde vc conseguir

[codebox]var
Val_Empr, tem_pag_em_ano,Tax_Juros_perc: real {a taxa de pagamento sera em anos}
taxa, parcelas, calc, quant_mes: real
inicio
quant_mes := 0
escreva ("Digite o valor do Imprestimo: ")
leia (Val_Empr)
escreva ("qual o tempo de Pagamento: ")
leia (tem_pag_em_ano)
escreva ("digite a taxa de juros: ")
leia (Tax_Juros_perc)
quant_mes := tem_pag_em_ano * 12
calc := Val_Empr / quant_mes
taxa := calc * Tax_Juros_perc/100
parcelas := calc + taxa
escreva ("O valor da prestação será de: ",parcelas)
fimalgoritmo[/codebox]

chegou um pouco tarde mas ai vai[codebox]a, b, c : inteiro
Inicio
escreva ("entre com o valor de a, b e c: ")
leia (a, b, c,)
se (a<b+c) e (b<c+a) e (c<a+b)entao
escreva (" é um triangulo ")
se (a=b ) e (b=C) entao
escreva (" é um equilatero ")
senao
se (a=b ) ou (a=c) ou (b=c) entao
escreva (" é um isosceles ")
senao
se (a<>b ) e (b<>c) e (a<>c) entao
escreva (" é um escaleno ")

senao
escreva (" não é um triangulo ")
fimse
fimse
fimse
fimse
Fimalgoritmo[/codebox]

so basta comparar e saber a diferença, um abraço

www.apostilando.com tem muitas apostilas boas