natürliche, ungerade zahlen addieren

[Sharky]

Hai ihr,

ich habe hier auch noch einen Vorschlag der auf das Mod verzichtet

Delphi-Quellcode:

function OddlySum(const aFrom, aTo: Integer): Int64;
var
  i: Integer;
  blubb: Int64;
begin
  blubb := 0;
  for i := aFrom to aTo do
  begin
    if (i and 1) = 1 then
    begin
      blubb := blubb + i;
    end;
  end;
  result := blubb;
end;

procedure TDemo_Form.Button1Click(Sender: TObject);
begin
  ShowMessageFmt('%d', [OddlySum(1, 489511)]);
end;

[edit]Mal schnell Cardinal gegen Int64 getauscht