viết chương trình vs chương trình cona. tính T= n! ( biết n! = 1*2*3*4*...*n và 0!=1)b. sử dụng chtrinh con tính tổ hợp Ckn = n! / k! * (n-k)! ( k,n là 2 số nguyên dương , k < = n)
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
9 tháng 4 2021
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
9 tháng 5 2021
Câu 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
9 tháng 5 2021
Câu 2:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
22 tháng 3 2021
uses crt;
var a:array[1..200]of integer;
n,i,k,t,t1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod k=0 then t1:=t1+a[i];
writeln('Tong cac phan tu le la: ',t);
writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);
readln;
end.
20 tháng 4 2021
Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
20 tháng 4 2021
Câu 2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
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.
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