sábado, 22 de outubro de 2016

5.2 - Faça um programa que preencha um vetor com sete números inteiros, calcule e mostre: //a) os múltiplos de 2; //b)os múltiplos de 3 //c)os múltiplos de 2 e 3

5.2 - Faça um programa que preencha um vetor com sete números inteiros, calcule e mostre:
//a) os múltiplos de 2;
//b)os múltiplos de 3
//c)os múltiplos de 2 e 3

Algoritmo "questão 5.2"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 23/10/2016
Var
   // Seção de Declarações das variáveis
   vet:vetor[1..7]de inteiro
   i:inteiro
   QTDMULT2,QTDMULT3,QTDMULT32:LOGICO

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   PARA I:=1 ATE 7 FACA
      ESCREVAL("DIGITE O ",I,"º NUMERO")
      LEIA(VET[I])
   FIMPARA
   ESCREVAL("----------------------------")
   ESCREVAL("NUMEROS MULTIPLOS DE 2")
   PARA I:=1 ATE 7 FACA
      SE VET[I]>=2 ENTAO
         SE VET[I] MOD 2 =0 ENTAO
            QTDMULT2:=VERDADEIRO
            SE QTDMULT2 ENTAO
               ESCREVA(VET[I]:3)
            FIMSE
         FIMSE
      FIMSE
   FIMPARA
   SE QTDMULT2=FALSO ENTAO
      ESCREVAL("NÃO EXISTEM MÚLTIPLOS DE 2")
   FIMSE
   ESCREVAL
   ESCREVAL("----------------------------")
   ESCREVAL("NUMEROS MULTIPLOS DE 3")
   PARA I:=1 ATE 7 FACA
      SE VET[I]>=3 ENTAO
         SE VET[I] MOD 3 =0 ENTAO
            QTDMULT3:=VERDADEIRO
            SE QTDMULT3 ENTAO
               ESCREVA(VET[I]:3)
            FIMSE
         FIMSE
      FIMSE
   FIMPARA
   SE QTDMULT3=FALSO ENTAO
      ESCREVAL("NÃO EXISTEM MÚLTIPLOS DE 3")
   FIMSE
   ESCREVAL
   ESCREVAL("----------------------------")
   ESCREVAL("NUMEROS MULTIPLOS DE 2 E 3")
   PARA I:=1 ATE 7 FACA
      SE VET[I]>=2 ENTAO
         SE ((VET[I] MOD 2 =0) E (VET[I] MOD 3 =0)) ENTAO
            QTDMULT32:=VERDADEIRO
            SE QTDMULT32 ENTAO
               ESCREVA(VET[I]:3)
            FIMSE
         FIMSE
      FIMSE
   FIMPARA
   SE QTDMULT32=FALSO ENTAO
      ESCREVAL("NÃO EXISTEM NÚMEROS MÚLTIPLOS DE 2 E 3")
   FIMSE
Fimalgoritmo

Nenhum comentário:

Postar um comentário

Obrigado! Em breve publicaremos seu comentário