Algoritmo Múltiplos

Resposta da Tarefa 4

1- Algoritmo Múltiplos_de_5;

Var

  num: inteiro;

Inicio

  para num de 1 até 100 faça

    inico

    se (num MOD 5) = 0 então

     escreva(num);

   fimse;

   fim;

  fimpara;

Fim.

2- Algoritmo Numeros_Quadrados;

Var

 num:inteiro;

Inicio

   para num de 10 ate 30 faça;

   inicio

   se (num MOD 2) = 0 então

   escreva(num);

  fimse;

  fim;

  fimpara;

Fim.

3- Algoritmo Múltiplos_de_3;

Var

 num:inteiro;

Inicio

  para num de 10 até 30 faça

  inicio

    se (num MOD 3) = 0 então

      escreva(num)

   fimse;

  fim;

   fimpara;

Fim.

4- Algoritmo Somatorio;

Var

   i :inteiro;

Inicio

   soma <- 0;

  para i de 20 ate 60 faça

  inicio

   soma <- soma + i;

i <- i+1;

  fim;

   fimpara;

   escreva(soma);

Fim.

5- Algoritmo Cubico_Metade;

Var

 cont,cubico,metade,num:inteiro;

Inicio

 para cont de 1 ate 10 faça

   inicio

       cubico <- (num ^1/3);

       metade <- (num * 2);

  escreva(“Sua raiz cubica:”, cubico);

  escreva(“Sua metade:”, metade);

 fim;

 fimpara;

Fim.

6-Algoritmo Cubico_Metade;

Var

  repi,num,metade,cubico: inteiro;

Inicio

escreva(“Quantas vezes vocês você quer repetir esse programa:”);

leia(repi) ;

 para i de 0 ate repi faça

 inicio

  escreva(“Entre com número:”);

  leia(num);

   cubico <- (num ^1/3);

   metade <- (num * 2);

   escreva(“Sua raiz cubica:”, cubica);

   escreva(“Sua metade:”, metade);

 fim;

 fimpara;

Fim.

7- Algoritmo Numeros_Inteiros;

Var

 cont,numa,numB,resultado:inteiro;

Inicio

  Escreva(“Digite um numero base:”);

  Leia(numA);

  Escreva(“Digite um numero expoente:”);

  Leia(numB);

   cont <- 1;

   resultado <- numA;

 enquanto (cont < numB) faça

  inicio

  resultado <- numA * resultado;

   cont <- cont + 1;

fim;

fim_enquanto;

   escreva(resultado);

Fim.

8- Algoritmo Polegadas_Para_Centimentos;

var polegadas, centimetros: real;

              cont: inteiro;

Inicio

            poledas←0

        para cont de 1 até 20 faça

                inicio

                        Escreva(“Polegadas / Centimetros”);

                        centimetros←polegadas*2,54;

                        Escreva(“Polegadas: ”,polegadas” Centimetros: ”,centimetros);

                        polegadas←polegadas+1;

                fimpara;

fim.

9-Algoritmo Tabuada;

Var

  num,cont:inteiro;

Inicio

  Escreva(“Tabuada”);

  Escreva(“Digite um número:”);

  Leia(num);

  para cont de 1 até 10 faça

   inicio

     cont <- num * cont;

     escreva(cont);

fim;

fim_para;

Fim.

10-Algoritmo Nome_Idade_Sexo;

Var

  nome,sexo:caractere;

  cont,idade:inteiro;

Inicio

   para cont de 1 até 20 faça

     inicio

    escreva(“Digite o nome:”);

    leia(nome);

    escreva(“Digite a idade”);

    leia(idade);

    escreva(“Digite o sexo:”);

    leia(sexo);

      se (sexo = “masculino”) e (idade >= “21”) então

           escreva(“Do sexo masculino e tem mais de 21 anos:”);

      senão

          escreva(“Não é do sexo masculino e não tem mais de 21 anos”);

     fimse;

     fim;

     fim_para;

Fim.

11- Algoritmo Inferior_Superior;

Var

 n1, n2, cont, maior, menor: inteiros;

Inicio

        Escreva(“Digite o primeiro número”);

        Leia(n1);

        Escreva(“Digite o segundo número”);

        Leia(n2);

        Se n1>n2 então

                maior←n1;

                menor←n2;

                senão

                        maior←n2;

                        menor←n1;

                fimse;

        cont←1;

        Para cont de menor até maior passo 1 faça

        inicio

                Escreva(“Números impares do intervalo: ”,cont);

        fimpara;

fim;

12- Algoritmo Somatorio;

Var

n1, somatorio:inteiro;

inicio

        escreva("Digite o número 0800 para finalizar");

        Escreva("Digite um número para somar");

        Leia(n1);

        somatorio←n1;