Dividir por 2 e 3 e mostrar o resultado

Question

Ol� pessoal, queria uma ajudinha, como poderia fazer pra digitar 4 numeros, usando 4 edits e verificar se sao divisiveis por 2 e 3 e os que forem divisiveis, mostrar o resultado numa label?Eu pensei p...

Marcelo Saviski · Answer

para pegarresto da dvis�ao voc� usa o [b:42d35a0793]mod[/b:42d35a0793]

por exemplo
11 [b:42d35a0793]mod [/b:42d35a0793]5 = 1

ele o mesmo que isso

[color=green:42d35a0793]11 - (11 div 5)*5[/color:42d35a0793]

Bacalhau · Answer

Vou s� dizer para o edit1. O resto � igual.

var numero : integer;

begin
label1.caption := ��;
numero := strtoint(edit1.text);

if numero mod 2 = 0 then // � divisivel por 2
label1.caption := label1.caption + inttostr(numero) + #1013;

if numero mod 3 = 0 then // � divisivel por 3
label2.caption := label2.caption + inttostr(numero) + 1013;

e por a� fora

abra�o
bacalhau

Tnaires · Answer

U�, diego, a minha resposta no outro t�pico n�o te ajudou?
Inclusive l� foi dada a sugest�o q um n�mero � divis�vel por dois e por tr�s se for divis�vel por seis...
[url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=32924]T�pico[u:2cfaa7e0fd][/u:2cfaa7e0fd][/url]

Beppe · Answer

[quote:ef35cc4ea3=�tnaires�]U�, diego, a minha resposta no outro t�pico n�o te ajudou?Inclusive l� foi dada a sugest�o q um n�mero � divis�vel por dois e por tr�s se for divis�vel por seis...[url=//delphiforum.icft.com.br/forum/viewtopic.php?t=32924]T�pico[u:ef35cc4ea3][/u:ef35cc4ea3][/url][/quote:ef35cc4ea3]Acontece � que ele, como muitos, n�o tem paci�ncia e v�o logo dulicando as mensagens. :(...

Tnaires · Answer

[quote:f7f8919e25=�Beppe�]Acontece � que ele, como muitos, n�o tem paci�ncia e v�o logo dulicando as mensagens. :([/quote:f7f8919e25]Ah cara, eu reli o enunciado dele, ele perguntou se dava pra fazer de um jeito diferente, sem usar o mod sacou?Pow... eu nunca entendo uma mensagem d primeira... foi por isso q acabei mandando 3 respostas pro t�pico q eu referenciei  :oops: Xau...

F�rum Dividir por 2 e 3 e mostrar o resultado #206890