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