New Microsoft Word Document
1
Chỉnh hợp không lặp thì dễ rồi Ank=n!/k! ( n!/ (n-k)! ) CHương trình: Link: http://www.ddth.com/showthread.php/404423-Tổ-hợp-pascal? s=448d855e5ed11645b8ed9f089f3e2a7d#ixzz3WR4EBxYh Var n,k,i,j:integer; A:real; Begin write('Nhap vao so n:'); Readln(n); write('Nhap vao so k:'); Readln(k); gt1:=1; gt2:=1; For i:=1 to n do gt1:=gt1*i; For j:=1 to k do gt2:=gt2*j; A:=gt1/gt2; write('Ank=',A:4:2); Readln End.
description
bubu file
Transcript of New Microsoft Word Document
Chnh hp khng lp th d riAnk=n!/k! ( n!/ (n-k)! )CHng trnh:
Link:http://www.ddth.com/showthread.php/404423-T-hp-pascal?s=448d855e5ed11645b8ed9f089f3e2a7d#ixzz3WR4EBxYh
Var n,k,i,j:integer; A:real;Begin write('Nhap vao so n:');Readln(n); write('Nhap vao so k:');Readln(k); gt1:=1;gt2:=1; For i:=1 to n do gt1:=gt1*i; For j:=1 to k do gt2:=gt2*j; A:=gt1/gt2; write('Ank=',A:4:2); Readln End.