1) Faca um programa que recebe um numero positivo e maior que zero, calcule e mostre:a) o numero digitado ao quadrado;b) o numero digitado ao cubo;c) a raiz quadrada do numero digitado;d) a raiz cubica do numero digitado.algortimo_quadvar nro,quadrado,cubo,r_quadrada,r_cubica:real inicio escreval("digite um numero") leia(nro) quadrado<-nro*nro escreval("este numero ao quadrado e =",quadrado) cubo<-nro*nro*nro escreval("este numero ao cubo e=",cubo) r_quadrada<-raizq(nro) escreval("a raiz quadrada deste numero e=",r_quadrada) r_cubica<-nro^(1/3) escreval("a raiz cubica deste numero e =",r_cubica) fimalgoritmo2) Faca um programa para verificar se um inteiro positivo lido e par ou impar (mostre por escrito se e par ou impar). Se o numero for impar, multiplique por 2 e mostre o resultado, caso contrario multiplique por 12 e mostre o resultado. (OBS: Par: x mod 2 = 0) algoritmo_parvar nro:inteiro resp:real inicio escreval("digite um numero") leia(nro) se nro mod 2=0 entao resp<-nro*1/5] escreval("o numero digitado e par") escreval("o resultado da multiplicacao e",resp) senao resp<-nro*2 escreval("o numero digitado e impar") escreval("o resultado da multipliacao e",resp) fimse fimalgoritmo3) Faca um programa que receba o custo total de um espetaculo teatral e o preco do convite desse espetaculo. Esse programa devera calcular e mostrar a quantidade de convites que devem ser vendidos para que pelo menos o custo do espetaculo seja alcancado. algoritmo_espetaculovar valor_total,valor_conv,resp:real inicio escreval("digite o valor do espetaculo") leia(valor_total) escreval("digite o valor do convite") leia(valor_conv) se valor_conv <> 0 entao resp<-valor_total/valor_conv escreval("voce precisa vender",resp," convites") senao escreval("voce digitou um valor incorreto") fimse fimalgoritmo4) Faca um programa que receba tres numeros e mostre-os em ordem decrescente. algoritmo_numerosvar valor_total,valor_conv,resp:real inicio escreval("digite o valor do espetaculo") leia(valor_total) escreval("digite o valor do convite") leia(valor_conv) se valor_conv <> 0 entao resp<-valor_total/valor_conv escreval("vc pricesa vender",resp," convites") senao escreval("voce digitou um valor incoreto") fimse fimalgoritmo5) Faca um programa que receba a hora do inicio de um jogo e a hora final (cada hora e composta por duas variaveis inteiras: hora e minuto). Calcule e mostre a duracao do jogo (horas e minutos), sabendo-se que o tempo maximo de duracao do jogo e de 24 horas e que ele pode iniciar-se em um dia e terminar no dia seguinte.algoritmo_horavar horaIni, minIni, horaFim, minFim, minDif, horaDif:inteiroinicio escreval("Digite hora e minutos do inicio do jogo ") leia(horaIni, minIni) escreval("Digite hora e minutos do fim do jogo ") leia(horaFim, minFim) se (minIni > minFim) entao minFim <- minFim + 60 horaFim <- horaFim - 1 fimse se (horaIni > horaFim) entao horaFim <- horaFim + 24 fimse minDif <- (minFim - minIni) horaDif <- (horaFim - horaIni) escreval("O jogo durou", horaDif, " horas e ", minDif, " minutos")fimalgoritmo6) Faca um programa que receba cem numeros, calcule e mostre a soma dos numeros pares e a media dos numeros primos. algoritmo_primovarx,y,nro,primo:inteirocont,media,soma,parcial:realinicio soma<-0 para x de 1 ate 100 faca escreval("digite um numero") leia(nro) se (nro mod 2=0) entao escreval("vc digitou um numero par!") soma<-soma+nro fimse primo<-0 para y de 1 ate nro faca se (nro mod y =0) entao primo<-primo+1 fimse fimpara cont<-0 se primo<=2 entao escreval("vc digitou um numero primo") cont<-cont+1 parcial<-parcial+primo fimse fimpara media<-parcial/cont escreval(" a soma dor numeros pares e",soma) escreval("a media dos numero primos e",media)fimalgoritmo07)Foi feita