Viết chương trình sử dụng cấu trúc lặp a) Có N bạn xếp thành 1 hàng hỏi có bnh cách xếp ( N nhập từ bàn phím, N >2 ) b) Nhập N, k Tính tổ hợp chập k của n

Program ct_lap;

Var i,n,s,k,t,s1,s2,s3 : longint;

Begin

Write (' Nhap so lieu la so nguyen lon hon 0 ');

Write (' Hay nhap so hoc sinh: ');

Readln ( n );

S := 1;

For i := 1 to n do S := S * i;

Writeln (' So cach xep ', n ,' hoc sinh la: ', n ,' ! = ', S );

Write (' Nhap so N: ');

Readln ( n );

Write (' Nhap so k : ');

Readln ( k );

S1 := 1;

S2 :=1;

S3 := 1;

For i : = 1 to n do S1 := S1 * n;

For i := 1 to k do S2 := S2 * k;

t := n-k;

For i:= 1 to t do S3 := S3 * t;

S := S1/(S2*S3);

Write (' To hop ', n ,' chap ', k ,'la : ', S );

End.