جمع اعداد فرد یا زوج یک تا صد

[Admiral]

سلام
استادم گفته یک برنامه باید با دلفی نوشته شود که جمع اعداد فرد یا زوج 1 تا 100 را بدهد.
بدون استفاده از for، while، goto ، repeat.

گفته 5 نمره دارد اگر کسی این را انجام بدهد.
تورو خدا یکی کمک کند.

[The.Ghost]

سلام دوست عزیز:
این کار فقط با اسمبلی می شود، یعنی باید اسمبلی را در دلفی بنویسی.

کد:

Function Sum_Zooj:Byte;
Var
SUM:Byte;
LABEL L1, K2, N1;
Const
  KGB:Byte=2;
Begin
  ASM
    MOV BL,1
    MOV SUM,0
    MOV CX,100
      L1:
        CMP CX,0
        JE N1
        MOV AL,BL
        MOV AH,0
        DIV KGB

        CMP AH,0
        JNE K2
         ADD SUM,BL

        K2:

        INC BL

    LOOP L1

    N1:

    MOV AL,SUM
    MOV @Result,AL
  END;
End;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Sum_Zooj));
end;

[HoseinVig]

از این فرمول استفاده کن

کد:

(n(n-1))/2

بجای n بزار 100
البته این برای اعداد 1تا 100 هست فکر کنم اگه نصفشونو بخای باید یه تقسیم بر دو بکنی