[XaKeR282]

помогите мне вычислить факториал. Я попробовал сделать его с циклом (for to do) у меня получилось, а с While не получается, попробовал написать такой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm5.ВычислитьExecute(Sender: TObject); var Shotcik:Integer; Summa:Integer; Ekran:Integer; begin Shotcik:=0; Summa:=0; Ekran:=StrToInt(Edit1.Text); while Shotcik<Ekran do Begin Summa:=Summa+Shotcik; Shotcik:=Shotcik+1; End; Edit2.Text:=IntToStr(Ekran); end;