n!/(n-r)!r! işlemini yapan program.

)uses crt;
var
fak,i,n,r,fakt,fakr,faktnr:integer;
sonuc:real;
begin
writeln('r sayısını giriniz');readln(r);
writeln('n sayısını giriniz');readln(n);
fak:=1; fakr:=1; faktnr:=1;
 
for i:=2 to n  do begin
fak:=fak*i;
if(i<=r)then
fakr:=fakr*i;
if(i<=(n-r))then
faktnr:=faktnr*i;

end;
sonuc:=fak/(faktnr*fakr);
writeln('sonuc',sonuc);
readln;
end.


Linkback: https://www.buyuknet.com/nnrr-islemini-yapan-program-t8603.0.html