Elabore um Algoritmo que dados dois números, indique se algum deles é múltiplo do outro.

Algoritmo "Multiplos"

// Função : Calcular o resto de uma divisão de dois números distintos e verificar se um é múltiplo do outro.

// Autores : 

// Data : 02/01/2011

// Seção de Declarações

Variáveis

   restonum, num1, num2: real;

Inicio

// Seção de Comandos

   Escreva ("digite o primeiro numero:" );

   leia (num1);

   Escreva ("digite o segundo numero: ");

   leia (num2);

   restonum <- mod (num1, num2);

            se restonum = 0 entao

               Escreval ("O número" ,num1, "é múltiplo do " ,num2);

              

               Senao

              

               Se restonum > 0 entao

               Escreval ("O número " ,num1, " não é múltiplo do " ,num2);

               Fimse;

            Fimse;

Fim.