algoritmo " São múltiplos ou não múltiplos"
var
x,y:real
inicio
escreval(" São múltiplos ou não múltiplos.")
escreva(" Digite o primeiro número = ")
leia(x)
escreva(" Digite o segundo número = ")
leia(y)
se ((x>y e ((x mod y)= 0)) entao
escreva ("São múltiplos.")
senao
escreva("Não são múltiplos.")
fimse
fimalgoritmo
aqui outro exemplo de multiplos de 2 numeros
ResponderExcluiralgoritmo "Multiplos"
// Função : estudante
// Autor : angelo
// Data : 10/09/2014
// Seção de Declarações
var
a, b:inteiro
inicio
escreva("Digite o valor de a:")
leia(a)
escreva("Digite o valor de b:")
leia(b)
se ((a%b = 0) ou (b%a=0)) entao
escreva (a," e", b, " São múltiplos")
senao
escreva (a," e", b, " Não São múltiplos")
fimse
fimalgoritmo
tem com fazer em lenguagem c++
ResponderExcluir