algoritmo "Verificar se 2 valores são múltiplos"
var
a, b, resto: inteiro
inicio
escreval ("Calcular Múltiplos")
escreva ("Informe valor para a: ")
leia (a)
escreva ("Informe valor para b: ")
leia (b)
se (a>b) entao
resto <- a mod b
senao
resto <- b mod a
fimse
se (resto=0) entao
escreva ("São Múltiplos")
senao
escreva ("Não Múltiplos")
fimse
fimalgoritmo
Nenhum comentário:
Postar um comentário