1.r+2.(r-1)+3.2+4.1+5.0+6(-1)......n.(r-1) / n!(n-r) işlemini yapan program

1.r+2.(r-1)+3.2+4.1+5.0+6(-1)......n.(r-1)
                            n!(n-r)!


uses  crt;
   var
   n,i,r1,r,fakn,faknr,toplam:integer;
   sonuc:real;
   write(‘n değerini giriniz:’);readln(n);
   write(‘r değerine giriniz:’);readln(r);
   r1:=r;
   faknr:=1; fakn:=1;
   for i:=1 to n do begin
   toplam:=i*r1+toplam;

   r1:=r1,1;
   fakn:=fakn*i;
   end;
   sonuc:=toplam/(faknr*fakn);
   readln;
   end.



Linkback: https://www.buyuknet.com/1r2r132415061nr1-nnr-islemini-yapan-program-t8606.0.html