Mostrar numeros divisíveis
Pessoal,
To querendo fazer um programa onde vc esconhe um numero qualquer e o programa mostre todos os numeros possiveis que são divisiveis por ele começando por ele mesmo ate 1.
Ex:
10 é divisivel por 10 por 5 por 2 e por 1
Será que alguem pode me ajudar. :roll:
Obrigadão. :D
To querendo fazer um programa onde vc esconhe um numero qualquer e o programa mostre todos os numeros possiveis que são divisiveis por ele começando por ele mesmo ate 1.
Ex:
10 é divisivel por 10 por 5 por 2 e por 1
Será que alguem pode me ajudar. :roll:
Obrigadão. :D
Affz
Curtidas 0
Respostas
Echoesofpinkfloyd
11/09/2003
Pessoal,
To querendo fazer um programa onde vc esconhe um numero qualquer e o programa mostre todos os numeros possiveis que são divisiveis por ele começando por ele mesmo ate 1.
Ex:
10 é divisivel por 10 por 5 por 2 e por 1
Será que alguem pode me ajudar. :roll:
Obrigadão. :D
procedure TForm1.Button1Click(Sender: TObject);
var i, numero: integer;
begin
numero:=10;
for i:=numero downto 1 do
begin
if (numero mod i) = 0 then
showmessage(inttostr(i));
end;
end;
espero que resolva, abraços..
GOSTEI 0
Edineidaniel
11/09/2003
Vc poderia usar algo como: Um Loop;
diminuindo 1 do valor digitado e faça um teste com o MOD para ver se a divisão deu resto 0 se deu ele é divisível... ai vc mostar..
walew
t+
Edinei
diminuindo 1 do valor digitado e faça um teste com o MOD para ver se a divisão deu resto 0 se deu ele é divisível... ai vc mostar..
walew
t+
Edinei
GOSTEI 0
Echoesofpinkfloyd
11/09/2003
Vc poderia usar algo como: Um Loop;
diminuindo 1 do valor digitado e faça um teste com o MOD para ver se a divisão deu resto 0 se deu ele é divisível... ai vc mostar..
walew
t+
Edinei
rs rs rs fizemos a mesma coisa so que com linguagens diferentes rs r s
abraços amigo ..
GOSTEI 0
Affz
11/09/2003
procedure TForm1.Button1Click(Sender: TObject);
var i, numero: integer;
begin
numero:=10;
for i:=numero downto 1 do
begin
if (numero mod i) = 0 then
showmessage(inttostr(i));
end;
end;
espero que resolva, abraços..
Valewwww....
Mas por exemplo para mim botar:
numero:=x;
x:= edit1.text ´´;
Como faço...
Valew pessoal por responder perguntas tao simples...
GOSTEI 0
Echoesofpinkfloyd
11/09/2003
[quote:59794c268f]procedure TForm1.Button1Click(Sender: TObject);
var i, numero: integer;
begin
numero:=10;
for i:=numero downto 1 do
begin
if (numero mod i) = 0 then
showmessage(inttostr(i));
end;
end;
espero que resolva, abraços..
Valewwww....
Mas por exemplo para mim botar:
numero:=x;
x:= edit1.text ´´;
Como faço...
Valew pessoal por responder perguntas tao simples...[/quote:59794c268f]
nao sei se entendi bem sua duvida.. mas vamos la ...
ponha um Tedit no form
e atribua sua propriedade text a variavel numero por exemplo:
numero := strtoint(Tedit1.text);
o resto aplique a rotina que te passei ..
valeu
GOSTEI 0