Escrever um algoritmo e um programa que leia 2 números. Mostrar quais números são divisíveis por 2 e por 3 (concomitantemente) – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Escrever um algoritmo e um programa que leia 2 números. Mostrar quais números são divisíveis por 2 e por 3 (concomitantemente)

 

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 Exercicio29;
 
var
  num1, num2 : Inteiro;
inicio
  Escreva('Informe o numero 1: ');
  Leia(num1);
 
  Escreva('Informe o numero 2: ');
  Leia(num2);
 
  se (num1 mod 2 = 0) e (num1 mod 3 = 0) entao
    Escreva('O numero ', num1, ' eh divisivel por 2 e por 3 ao mesmo tempo.');
 
  se (num2 mod 2 = 0) e (num2 mod 3 = 0) entao
    Escreva('O numero ', num2, ' eh divisivel por 2 e por 3 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
24
25
26
27
program Exercicio29;
 
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 2 = 0) and (num1 mod 3 = 0) then
    WriteLn('O numero ', num1, ' eh divisivel por 2 e por 3 ao mesmo tempo.');
 
  if (num2 mod 2 = 0) and (num2 mod 3 = 0) then
    WriteLn('O numero ', num2, ' eh divisivel por 2 e por 3 ao mesmo tempo.');
 
  { Outra opcao seria testar se o numero eh divisivel por 6,
  uma vez que para um numero ser divisivel por 6, necessariamente ele deve ser
  divisivel por 2 e 3 concomitantemente }
 
  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.

Facebook Comments

Posts Relacionados

  • Administrador
  • 761 views
  • 0 comentários
  • 11 de março de 2016

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados