LD1-8)Fazer um programa para calcular a soma dos N primeiros números,onde N é lido. Ex:N=5.Soma=1+2+3+4+5.

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

Este programa deve fornecer como saída:

A)A média dos pesos dos homens;
B)A media das idades das mulheres;
C)Quantas mulheres acima de 25 anos;

LD1-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 (-).

Ex.: 12 / 3 = 4 = 12-3=9-3=6-3=3-3=0 (4 vezes)

Algoritmo "divide subtraindo"

Var
    num1,num2,res: inteiro
Inicio
    Escreva("Digite dois numeros para serem divididos: ")
    Leia(num1)
    Leia(num2)
    res <- 0
    Se(num2>num1)Entao
    Enquanto(num2>0)Faca
        num2 <- num2 - num1
        res <-res+1
    Fimenquanto
    Senao
        Enquanto(num1>0)Faca
            num1 <- num1 – num2
            res <-res+1
        Fimenquanto
    Fimse
    Escreva("O resultado da divisao e ",res)
Fimalgoritmo

LD1-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 (+).

Ex.: 12 * 3 = 36 = 12+12+12 (3 vezes)
Algoritmo "calcula multiplicacao"

Var
    num1,num2,res: numerico
Inicio
    Escreva("Digite dois números para serem multiplicados: ")
    Leia(num1)
    Leia(num2)
    res<-0
    Enquanto(num2>0)Faca
        res <- res + num1
        num2 <- num2 - 1
    Fimenquanto
    Escreva("O resultado da multiplicacao e: ",res)
Fimalgoritmo

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

a) Não terminem em zero;
b) Se o dígito à direita for removido, o número restante seja divisor do número original. (ex: 39 (3 é divisor de 39).

Algoritmo "números inteiros e positivos"

Var
    n1,n2,i,j: inteiro
Inicio
    Escreva("Digite os dois numeros: ")
    Leia(n1)
    Leia(n2)
    Se(n2>n1)Entao
    Para i de n1 ate n2 faca
        Se(i>=10)Entao
        j<-i
            Se (i MOD 10 <> 0) Entao
                i<-(i DIV 10)
                Se ((j MOD i)=0)Entao
                    Escreval(j)
                Fimse
            Fimse
        Fimse
    Fimpara
    Senao
        Se(n1>n2)Entao
            Para i de n2 ate n1 faca
                Se(i>=10)Entao
                j<-i
                    Se (i MOD 10 <> 0) Entao
                        i<-(i DIV 10)
                        Se ((j MOD i)=0)Entao
                            Escreval(j)
                        Fimse
                    Fimse
                Fimse
            Fimpara
        Senao
        Escreva("Os números são iguais! (nao possuem intervalo)")
        Fimse
    Fimse
Fimalgoritmo

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

Algoritmo "tabuada"
Var
    i,num,res: inteiro
Inicio
    Leia(num)
    Para i de 0 ate 10 faca
        Res <- num * i
        Escreval(num, " x ",i, " = ",res)
    Fimpara
Fimalgoritmo

LD1-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 "Multiplos"

Var
    i: inteiro
Inicio
    Para i de 600 ate 700 faca
        Se ((i MOD 5)=0)Entao
                Se((i MOD 7)=0)Entao
                      Escreval(i)
                Fimse
        Fimse
    Fimpara
Fimalgoritmo