Mostrar numeros divis�veis

Question

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 1...

Echoesofpinkfloyd · Answer

[quote:b6c3bc8ae5=�affz�]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 1Ser� que alguem pode me ajudar. :roll: Obrigad�o.  :D[/quote:b6c3bc8ae5]procedure TForm1.Button1Click(Sender: TObject);var i, numero: integer;beginnumero:=10;for i:=numero downto 1 do        begin                if  (numero mod i) = 0 then                        showmessage(inttostr(i));        end;end;espero que resolva, abra�os.....

Edineidaniel · Answer

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...

Echoesofpinkfloyd · Answer

[quote:2857f40858=�ienide�]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[/quote:2857f40858]rs rs rs fizemos a mesma coisa so que com linguagens diferentes  rs r sabra�os amigo .....

Affz · Answer

[quote:e533dfaa9a]procedure TForm1.Button1Click(Sender: TObject);var i, numero: integer;beginnumero:=10;for i:=numero downto 1 do        begin                if  (numero mod i) = 0 then                        showmessage(inttostr(i));        end;end;espero que resolva, abra�os..[/quote:e533dfaa9a]Valewwww....Mas por exemplo para mim botar:numero:=x;x:= edit1.text ��;Como fa�o... Valew pessoal por responder perguntas tao simples......

Echoesofpinkfloyd · Answer

[quote:59794c268f=�affz�][quote:59794c268f]procedure TForm1.Button1Click(Sender: TObject);var i, numero: integer;beginnumero:=10;for i:=numero downto 1 do        begin                if  (numero mod i) = 0 then                        showmessage(inttostr(i));        end;end;espero que resolva, abra�os..[/quote:59794c268f]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 forme atribua sua propriedade text a variavel numero por exemplo:numero := strtoint(Tedit1.text);o resto aplique a rotina que te passei ..valeu...

F�rum Mostrar numeros divis�veis #181444