Resolução dos exercícios

[gabriielrt 0]

Galera, comecei a estuda algoritmos esse ano, to no primeiro semestre da faculdade e a primera avaliação ta xegando, ai to estudando e fiz a resolução de alguns algoritmos aqui que ta dando erro na execução mas eu não consigo achar aonde esta, segue os exercícios resolvidos:

 

Problema: "Faça um algoritmo que le um valor entre 0 e 9999 e calcula a soma dos seus dígitos. Dica:O dígito menos significativo de um número inteiro pode ser obtido pelo resto da divisão do número por 10. Os dígitos restantes podem ser obtidos pela divisão inteira por 10."

Erro: A variável un3 não esta sendo usada. Valor gerado é diferente do esperado na linha 13.

algoritmo “S001_S00001000”
var valor, un1, restun1, un2, restun2, un3, restun3, result:inteiro
inicio
escreva(“Digite um valor entre 0 e 9999: “)
leia(valor)
un1<-valor\10
restun1<-valor%10
un2<-un1\10
restun2<-un1%10
un3<-un2\10
restun3<-un2%10
result<-restun1+restun2+restun3
escreva(“O resultado é: “, result)
fimalgoritmo

Problema: "Faça um algoritmo que leia 3 valores a, b e c, lados de um triângulo, e verifique o tipo de triângulo formado escrevendo: 0 - se o triângulo é equilátero (os três lados são iguais); 1 - se o triângulo é isósceles (dois lados iguais e um diferente);2 - escaleno (3 lados diferentes)."

Erro: Valor gerado é diferente do esperado na linha 10 .

algoritmo “C001_S00000350”
var a,b,c:inteiro
inicio
escreva(“Digite três lados de um triângulo: “)
leia(a,b,c)
se a=b e a=c e b=c
entao escreva(“0”)
senao se a=b e (a<>c ou b<>c) ou b=c e (b<>a)
	entao escreva(“1”)
	senao escreva(“2”)
	fimse
fimse
fimalgoritmo

Outros problemas do mesmo genero dão os mesmos erros então queria mesmo é saber o que está de errado nesses códigos pq não consigo visualizar o erro.

[Sergio Cavalcante 6]

algoritmo "Ajude o seu proximo a ser o melhor"

// Função :

// Autor :

// Data : 13/04/2014

// Seção de Declarações

var

a,b,c:inteiro

inicio

Escreval("Informe os 3 lados do triangulo")

leia(a,b,c)

se (a=b)e(b=c)e(c=a)entao

Escreva("|0|- triangulo equilatero")

senao

se(a<>b)e(b<>c)e(c<>a)entao

Escreva("|3|triangulo escaleno")

senao

Escreva("|1|-triangulo isosceles")

fimse

fimse

fimalgoritmo

algoritmo "Ajude o seu proximo a ser o melhor"

// Função :

// Autor :

// Data : 13/04/2014

// Seção de Declarações

var

valor, un1, restun1, un2, restun2, un3, restun3,un4,restun4 ,result:inteiro

inicio

Escreval("Digite um valor entre 0 e 9999: ")

leia(valor)

un1 <-valor\10

restun1 <-valor%10

un2 <-un1\10

restun2<-un1%10

un3 <-un2\10

restun3<-un2%10

un4 <-un3\10

restun4<-un3%10

result<-(restun1+restun2+restun3+restun4)

Escreval("O resultado é: ", result)

fimalgoritmo