uses crt;
var
toplam,i,fak,n,r,fakr,faknr:integer;
sonuc:real;
begin
fak:=1; faknr:=1;
writeln('r sayısını giriniz');readln(r);
writeln('n sayısını giriniz');readln(n);
for i:=1 to n do begin
toplam:=toplam+i;
fak:=fak*i;
if(i<=(n-r))then
faknr:=faknr*i;
end;
sonuc:=toplam/(faknr*fak);
writeln('sonuc:',sonuc:6:2);
readln;
end.
Linkback: https://www.buyuknet.com/n8721i1nnr-ilemini-yapan-program-t8604.0.html