Sugestão de Solução em Linguagem Algorítmica
mod = calcula o resto da divisão inteira.
Este comando muda conforme a linguagem, exemplo em java é %
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | programa Exercicio30; var num1, num2 : Inteiro; inicio Escreva('Informe o numero 1: '); Leia(num1); Escreva('Informe o numero 2: '); Leia(num2); se (num1 mod 4 = 0) e (num1 mod 5 = 0) entao Escreva('O numero ', num1, ' eh divisivel por 4 e por 5 ao mesmo tempo.'); se (num2 mod 4 = 0) e (num2 mod 5 = 0) entao Escreva('O numero ', num2, ' eh divisivel por 4 e por 5 ao mesmo tempo.'); fim. |
Sugestão de Solução em Pascal, Lazarus, Delphi
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | program Exercicio30; uses Classes, SysUtils; var num1, num2 : Integer; begin Write('Informe o numero 1: '); ReadLn(num1); Write('Informe o numero 2: '); ReadLn(num2); if (num1 mod 4 = 0) and (num1 mod 5 = 0) then WriteLn('O numero ', num1, ' eh divisivel por 4 e por 5 ao mesmo tempo.'); if (num2 mod 4 = 0) and (num2 mod 5 = 0) then WriteLn('O numero ', num2, ' eh divisivel por 4 e por 5 ao mesmo tempo.'); Write(#10#13#10#13, 'Tecle "Enter" para sair.'); Readln; end. |
Outras linguagens? Envie sua sugestão para showdelphi@showdelphi.com.br e teremos o maior prazer em publicar.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
