atividade pratica algoritmo logica de prog 2 respostas

Prévia do material em texto

Resposta 10
algoritmo "Soma_quadrados"
// Seção de Declarações
var
n,i:inteiro
soma,valor:real
inicio
 // Seção de Comandos
 escreval("Soma dos Quadrados")
 escreval("Digite o número de valores:")
 leia(n)
 soma<-0
 para i de 2 ate n faca
 escreval("Digite um valor:")
 leia(valor)
 soma<-soma+(valor*valor)
 fimpara
 escreval("Soma dos quadrados=",soma)
 fimalgoritmo
resposta 6
algoritmo "Quadrado" 
// Seção de Declarações 
var 
 lado, area: real 
 
inicio 
// Seção de Comandos 
 escreval("Digite o valor para um lado: ") 
 leia(lado) 
 area<-lado*lado 
 escreval("Area do quadrado=",area) 
 
fimalgoritmo