Fórum Saber se existem multiplos de um numero em um intervalo #460206

05/11/2013

0

Delphi

quero um codigo que faça semelhante os exemploa abaixo, mas nao tenho ideia de como seja:

ex:

quantos multiplos de 10, existem em um intervalo entre 5 e 35:

resultado: 10, 20, 30

ex2:

quantos multiplos de 10, existem em um intervalo entre -8 e 21:

resultado: 0, 10, 20
Italo Pereira

Italo Pereira

Responder

Posts

05/11/2013

Thiago Irrazabal

Boa tarde, segue um exemplo adapte a tua necessidade.

Primeiro crie 3 variáveis.
var
  I, X: Integer;
  S: String;


Depois em algum evento qualquer coloque o seguinte código.
X := 0;

for I := 5 to 35 do
    if I mod 10 = 0 then
     begin
        Inc(X);
        if S <> '' then
          S := S + ',' + IntToStr(I)
        else
          S := IntToStr(I);
     end;


Espero ter ajudado, abraço.


Att,
Thiago Irrazabal de Oliveira.
Responder

Gostei + 0

05/11/2013

Italo Pereira

obrigado amigo ;)
Responder

Gostei + 0

05/11/2013

Thiago Irrazabal

Esqueci de explicar, o X é a contagem de quantos são multiplos e o S eu adicionei para guardar quais, abraço.





Att,
Thiago Irrazabal de Oliveira.
Responder

Gostei + 0

05/11/2013

Italo Pereira

obrigado novamente ;) ja estou adaptando
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar