Cita:
Empezado por jhonny
Código Delphi [-]procedure TForm1.BitBtn1Click(Sender: TObject);
var
i :Integer;
begin
Memo1.Text:='Numeros impares'; for i := 1 to 1000 do begin
if ((i mod 2) = 0) then Memo1.Lines.Add(IntToStr(i));
end;
end;
|
Yo creo que podemos evitarnos el condicional:
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i :Integer;
begin
Memo1.Text:='Numeros impares';
for i := 0 to 499 do
begin
Memo1.Lines.Add(IntToStr(2*i + 1));
end;
end;
LineComment Saludos