viết chương trình tính chỉnh hợp k phần tử của n và tổ hợp k phần tử của n bằng cách sử dụng chương trình con có tên là Giaithua.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
24 tháng 2 2021
uses crt;
var n,k:longint;
{----------------chuong-trinh-con-------------------}
function gthua(var n:longint):real;
var i:longint;
gt:real;
begin
gt:=1;
for i:=1 to n do
gt:=gt*i;
gthua:=gt;
end;
{----------------chuong-trinh-chinh------------------}
begin
clrscr;
repeat
write('Nhap n='); readln(n);
write('Nhap k='); readln(k);
until (n>0) and (k>0) and (k<=n);
writeln(n,'!=',gthua(n):4:2);
writeln('C=',gthua(n)/(gthua(k)*gthua(n-k)):4:2);
readln;
end.
24 tháng 2 2021
Dế Mèn phiêu lưu kí là một truyện viết cho thiếu nhi rất đặc sắc của Tô Hoài. Trong truyện, tác giả đã xây dựng nhân vật chính là chú Dế Mèn với những nét tính cách, phẩm chất thật đáng yêu, đáng quý. Nhưng nhân vật mà em ấn tượng nhất là chú dễ choắt. Dù chỉ xuất hiện ở những phần đầu câu chuyện nhưng những câu nói cuối cùng của chú trước khi mất nhưng nó làm cho mỗi độc giả mãi không thể nào quên. Cậu là một người có thân hình nhỏ bẻ nhưng khá am hiểu sự đời, cách đối đãi với mọi người xung quanh. Bằng chứng là câu nói cuối cùng của Dế Choắt ở đời mà có thói hung hăng bậy bạ, có óc mà không biết nghĩ, sớm muộn rồi cũng mang vạ vào mình. Chỉ vài câu thôi, nhưng nó đã làm thay đổi một Dế Mèn kiêu căng, ngạo mạn lúc bấy giờ. Vậy mỗi người chúng ta hãy học theo Dễ Choắt, đừng bao giờ kiêu căng, làm việc bậy bạ mà ảnh hưởng đến cả mình, cả người khác
like 
ML
19 tháng 2 2023
Bài 1:
Program HOC24;
var i,n,d : byte;
t: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Co ',d,' phan tu la boi cua 3 va 5');
write('Tong la: ',t);
readln
end.
ML
19 tháng 2 2023
Bài 2:
Program HOC24;
var i,n,k : byte;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
write('Nhap k: '); readln(k);
for i:=1 to n do if a[i]=k then d:=d+1;
writeln('Co ',d,' phan tu bang ',k);
Write('Cac chi so do la: ');
for i:=1 to n do if a[i]=k then write(i,' ');
readln
end.
VD
24 tháng 8 2021
Uses crt;
Var i,k,n,bk,tong: integer;
a: array[1..1000] of integer;
Begin
write('Nhap K: '); readln(k);
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
{câu a}
For i:=1 to n do
if a[i]=k then bk:=bk+1;
writeln('Co so phan tu bang k la:',k);
{câu b}
For i:=1 to n do
if a[i]=k then
begin
write(i,' ');
tong:=tong+a[i];
end;
write('. Tong la:',tong);
readln
end.
31 tháng 8 2021
uses crt;
var k,n,tong,d,i:longint;a:array[1..1000]of longint;
begin
clrscr;
write('n=');readln(n);
write('k=');readln(k);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
d:=0;
for i:=1 to n do if(a[i]=k)then inc(d);
writeln('so phan tu bang voi:',k,' la:',d);
write('cac so co vi tri bang voi:',k,' la:');
tong:=0;
for i:=1 to n do if(a[i]=k)then
begin
write(i,' ');
tong:=tong+a[i];
end;
write('tong cua cac so bang voi:',k,' la:',tong);
readln;
end.
30 tháng 4 2022
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x<0) t+=x;
}
cout<<t;
return 0;
}
CM
15 tháng 7 2018
+ Số chỉnh hợp chập k của n phần tử:
+ Số tổ hợp chập k của n phần tử:
+ Ví dụ:
- Số chỉnh hợp chập 3 của 5: 
- Số tổ hợp chập 3 của 5: 
- Chọn ngẫu nhiên 5 bông hoa trong số 8 bông hoa khác nhau để cắm vào 5 lọ khác nhau:
⇒ Có 
cách chọn.
- Chọn ngẫu nhiên 5 bông hoa trong số 8 bông hoa khác nhau
⇒ Có 
cách chọn.
Cho mảng A gồm N phần tử thuộc kiểu nguyên dương (N≤500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:
a) Thủ tục nhập giá trị cho mảng A từ bàn phím.
b) Hàm kiểm tra số chia hết cho 3 hoặc 5