Escrever um algoritmo e um programa que leia dois valores A e B. Escrever a seguinte mensagem: “São múltiplos” ou “Não são múltiplos”.
Segundo a Wikipedia um múltiplo é o produto de qualquer quantidade e um inteiro. Em outras palavras, para as quantidades a e b, dizemos que b é um múltiplo de a caso b = na para alguns n inteiro, isto será chamado de multiplicador ou coeficiente . Se a não é zero, isso equivale a dizer que b/a é um número inteiro, sem resto. Se a e b são ambos inteiros e b é um múltiplo de a, então a é chamado de divisor de b. O produto de dois inteiros é chamado às vezes de múltiplo inteiro.
Sugestão de resposta em linguagem algorítmica
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| programa Exercicio23;
uses
Classes,
SysUtils;
var
A, B: Inteiro;
inicio
Escreva('Informe o primeiro numero: ');
Leia(A);
Escreva('Informe o segundo numero: ');
Leia(B);
se (A mod B = 0) then
Escreva('O numero ', A, ' eh multiplo de ', B, '.')
senao
Escreva('O numero ', A, ' NAO eh multiplo de ', B, '.') ;
fim. |
programa Exercicio23;
uses
Classes,
SysUtils;
var
A, B: Inteiro;
inicio
Escreva('Informe o primeiro numero: ');
Leia(A);
Escreva('Informe o segundo numero: ');
Leia(B);
se (A mod B = 0) then
Escreva('O numero ', A, ' eh multiplo de ', B, '.')
senao
Escreva('O numero ', A, ' NAO eh multiplo de ', B, '.') ;
fim.
Sugestão de resposta 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
28
29
30
31
| program Exercicio23;
{$mode objfpc}{$H+}
uses
Classes,
SysUtils;
var
A, B: Integer;
begin
try
Write('Informe o primeiro numero: ');
Readln(A);
Write('Informe o segundo numero: ');
Readln(B);
if (A mod B = 0) then
Write('O numero ', A, ' eh multiplo de ', B, '.')
else
Write('O numero ', A, ' NAO eh multiplo de ', B, '.') ;
Write(#10#13#10#13, 'Tecle "Enter" para sair.');
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end. |
program Exercicio23;
{$mode objfpc}{$H+}
uses
Classes,
SysUtils;
var
A, B: Integer;
begin
try
Write('Informe o primeiro numero: ');
Readln(A);
Write('Informe o segundo numero: ');
Readln(B);
if (A mod B = 0) then
Write('O numero ', A, ' eh multiplo de ', B, '.')
else
Write('O numero ', A, ' NAO eh multiplo de ', B, '.') ;
Write(#10#13#10#13, 'Tecle "Enter" para sair.');
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Outras linguagens?
Envie também a sua sugestão de algoritmo para showdelphi@showdelphi.com.br.
-
InfusTec
-
20.775 views
- 0 comentários
- 26 de janeiro de 2016
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo