8)Fazer um programa para calcular a soma dos N primeiros números, onde N é lido.

algoritmo "soma dos primeiros números"

var

  n,soma:inteiro

inicio

  soma<-0

  escreva("Entre com um numero:")

  leia(n)

  para n de n ate 1 passo - 1 faca

  soma<-soma+n

  fimpara

  escreva("A soma dos numeros eh:",soma)

fimalgoritmo

7)Leia um numero N (inteiro, positivo >5). Depois, leia para um determinado grupo de pessoas (N) as seguintes informações:

algoritmo "Idade,peso e sexo das pessoas"

var

   grupoPe, qtHo,qtMu,mdIdMu,id,muAcima25Anos:inteiro

   mdPsHo,peso:real

   sexo:caracter

inicio

   id<-1

   qtMu <-0

   mdpsHo <- 0

   escreval("Entre com a quantidade de pessoas:")

   leia(grupoPe)

   se (grupoPe > 5) entao

      para grupoPe de grupoPe ate 1 passo -1 faca

         escreva("Informe o sexo M ou F: ")

         leia(sexo)

         se (sexo = "M") entao

            qtHo<-qtHo +1

            escreva("Informe o peso do homem: ")

            leia(peso)

            mdPsHo<- mdPsHo + peso

            escreva("Informe a idade do homem: ")

            leia(id)

         senao

            qtMu<-qtMu+1

            escreva("Informe o peso da mulher: ")

            leia(peso)

            escreva("Informe a idade da mulher: ")

            leia(id)

            mdIdMu<- mdIdMu + id

            se (id > 25) entao

               muAcima25Anos<- muAcima25Anos + 1

            fimse

         fimse

      fimpara

      escreval("A média de peso dos homens eh: ",mdPsHo/qtHo)

      escreval(" A media de idade das mulheres eh: ",mdIdMu/qtMu)

      escreval( " mulheres acima de 25 anos eh: ",muAcima25anos)

   senao

      escreval("O grupo de pessoas é menor que 5")

   fimse

fimalgoritmo

6)Faça um programa que seja capaz de calcular o resultado de uma operação de divisão inteira (x dividido y), utilizando-se para isso apenas do operador de subtração (-).

algoritmo   " calcular divisão"

var

  x,y,soma,vezes : inteiro

inicio

  y<-0

  soma<- 0

  escreva("Entre com um número:")

  leia(x)

  escreva("Entre com um número divisor:")

  leia(y)

    se(x<y) entao

       escreva("Não é possível realizar uma divisão inteira")

    senao

      soma<-x

      vezes <-0

   repita

    soma<-soma-y

    vezes<-vezes+1

   ate(soma=0)

  escreval(x," / ",y," = ",vezes)

    fimse

fimalgoritimo

5) Faça um programa que seja capaz de calcular o resultado de uma operação de multiplicação (x vezes y), utilizando-se para isso apenas do operador de soma (+).

algoritmo " Resultado de uma multiplicação em soma"

var

   x,y, soma :inteiro

inicio

   soma<- 0

   escreva("Entre com um número:")

   leia(x)

   escreva("Entre com um número multiplicador:")

   leia(y)

   escreva(x," x ",y," = ")

      para y de y ate 1 passo -1 faca

       soma <- soma+x

      fimpara

       escreva(soma)

fimalgoritmo

4)Faça um programa para achar todos os números inteiros e positivos entre dois números lidos (N1 e N2), tais que:

algoritmo "Números inteiros e positivos entre n1 e n2"

var

  k,n, n1, n2 : INTEIRO

inicio

  escreva ("Entre com o primeiro número inteiro: ")

  leia (n1)

  escreva ("Entre com o segundo número inteiro: ")

  leia (n2)

  escreval ("Os Números são: ")

  n <-n1

  enquanto (n<n2)  faca

     se ((n mod 10) <>0 )entao

          k <- n div 10

            se (k <> 0) entao

              se ((n mod k ) = 0) entao

                  escreval(n)

              fimse

            fimse

     fimse

     n <- n+1

  fimenquanto

fimalgoritmo

3)Faça um programa que, dado um número, imprima a sua tabuada completa

algoritmo "Tabuada"

var

  i,n,resultado : inteiro

inicio

  escreval("Digite o numero da tabuada")

  leia(n)

  para i de i ate 10 faca

  resultado <- n*i

  escreval(n,"x",i,"=",resultado)

  fimpara

 

fimalgoritmo

2)Faça um programa que mostre na tela o(s) número(s) dentro do intervalo entre 600 e 700 que sejam múltiplos de 5 e também de 7.

algoritmo "múltiplos de 5 e 7 no intervalo de 600 a 700"

var

 b :inteiro

inicio

 b <- 600

 escreval("São multiplos de 5 e 7:")

   repita

     se (( b mod 5)= 0) e ((b mod 7)= 0 )entao

       escreva (b, " - ")

    fimse

     b <- b +1

   ate (b=701)

 

fimalgoritmo