Saber se existem multiplos de um numero em um intervalo

Delphi

05/11/2013

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

Curtidas 0

Respostas

Thiago Irrazabal

Thiago Irrazabal

05/11/2013

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.
GOSTEI 0
Italo Pereira

Italo Pereira

05/11/2013

obrigado amigo ;)
GOSTEI 0
Thiago Irrazabal

Thiago Irrazabal

05/11/2013

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.
GOSTEI 0
Italo Pereira

Italo Pereira

05/11/2013

obrigado novamente ;) ja estou adaptando
GOSTEI 0
POSTAR