Utilizando o Visualg. 1. Implemente um programa que receba como entrada um número inteiro positivo e guarde na variável D, variável A com soma tota...

Segue abaixo a implementação dos programas solicitados em Visualg: 1. Programa que recebe um número inteiro positivo e calcula a soma dos dígitos de D + A: ``` Algoritmo "Soma de Dígitos" Var nome: caractere sobrenome: caractere D, A, soma, digito: inteiro Inicio escreva("Digite seu nome: ") leia(nome) escreva("Digite seu sobrenome: ") leia(sobrenome) // Calcula a soma das letras do nome e sobrenome A <- 0 para i de 1 ate tamanho(nome) faca A <- A + asc(nome[i]) fimpara para i de 1 ate tamanho(sobrenome) faca A <- A + asc(sobrenome[i]) fimpara // Lê o número inteiro positivo D escreva("Digite um número inteiro positivo: ") leia(D) // Calcula a soma dos dígitos de D + A soma <- 0 enquanto D > 0 faca digito <- D % 10 soma <- soma + digito D <- D / 10 fimenquanto soma <- soma + A // Imprime a soma dos dígitos escreva("A soma dos dígitos de D + A é: ", soma) FimAlgoritmo ``` 2. Programa que lê 8 números inteiros e encontra o menor, o maior e a média: ``` Algoritmo "Menor, Maior e Média" Var A, B, C, D, E, F, G, H: inteiro menor, maior, media: real Inicio // Lê os 8 números inteiros escreva("Digite o valor de A: ") leia(A) escreva("Digite o valor de B: ") leia(B) escreva("Digite o valor de C: ") leia(C) escreva("Digite o valor de D: ") leia(D) escreva("Digite o valor de E: ") leia(E) escreva("Digite o valor de F: ") leia(F) escreva("Digite o valor de G: ") leia(G) escreva("Digite o valor de H: ") leia(H) // Encontra o menor número menor <- A se B < menor entao menor <- B se C < menor entao menor <- C se D < menor entao menor <- D se E < menor entao menor <- E se F < menor entao menor <- F se G < menor entao menor <- G se H < menor entao menor <- H // Encontra o maior número maior <- A se B > maior entao maior <- B se C > maior entao maior <- C se D > maior entao maior <- D se E > maior entao maior <- E se F > maior entao maior <- F se G > maior entao maior <- G se H > maior entao maior <- H // Calcula a média media <- (A + B + C + D + E + F + G + H) / 8 // Imprime o menor, o maior e a média escreva("O menor número é: ", menor) escreva("O maior número é: ", maior) escreva("A média dos números é: ", media) FimAlgoritmo ``` 3. Fluxogramas dos programas desenvolvidos: Fluxograma do programa que calcula a soma dos dígitos de D + A: ``` +---------------------+ | Início | +---------------------+ | Escreva("Digite seu | | nome: ") | | Leia(nome) | | Escreva("Digite seu | | sobrenome: ") | | Leia(sobrenome) | | A <- 0 | | Para i de 1 até | | tamanho(nome) faça | | A <- A + asc(nome| | [i]) | | FimPara | | Para i de 1 até | | tamanho(sobrenome) | | faça | | A <- A + | | asc(sobrenome[i])| | FimPara | | Escreva("Digite um | | número inteiro | | positivo: ") | | Leia(D) | | Soma <- 0 | | Enquanto D > 0 faça | | Digito <- D % 10 | | Soma <- Soma + | | Digito | | D <- D / 10 | | FimEnquanto | | Soma <- Soma + A | | Escreva("A soma dos | | dígitos de D + A é: | | ", Soma) | +---------------------+ | Fim | +---------------------+ ``` Fluxograma do programa que encontra o menor, o maior e a média: ``` +---------------------+ | Início | +---------------------+ | Escreva("Digite o | | valor de A: ") | | Leia(A) | | Escreva("Digite o | | valor de B: ") | | Leia(B) | | Escreva("Digite o | | valor de C: ") | | Leia(C) | | Escreva("Digite o | | valor de D: ") | | Leia(D) | | Escreva("Digite o | | valor de E: ") | | Leia(E) | | Escreva("Digite o | | valor de F: ") | | Leia(F) | | Escreva("Digite o | | valor de G: ") | | Leia(G) | | Escreva("Digite o | | valor de H: ") | | Leia(H) | | Menor <- A | | Se B < Menor então | | Menor <- B | | Se C < Menor então | | Menor <- C | | Se D < Menor então | | Menor <- D | | Se E < Menor então | | Menor <- E | | Se F < Menor então | | Menor <- F | | Se G < Menor então | | Menor <- G | | Se H < Menor então | | Menor <- H | | Maior <- A | | Se B > Maior então | | Maior <- B | | Se C > Maior então | | Maior <- C | | Se D > Maior então | | Maior <- D | | Se E > Maior então | | Maior <- E | | Se F > Maior então | | Maior <- F | | Se G > Maior então | | Maior <- G | | Se H > Maior então | | Maior <- H | | Media <- (A + B + C | | + D + E + F + G + H)| | / 8 | | Escreva("O menor | | número é: ", Menor)| | Escreva("O maior | | número é: ", Maior)| | Escreva("A média dos| | números é: ", Media)| +---------------------+ | Fim | +---------------------+ ``` 4. Não é possível enviar o arquivo executável dos programas aqui no chat. Você pode salvar os códigos em arquivos de texto com extensão ".alg" e executá-los no Visualg.