vct tính hiệu của số đảo N . Nhanh nhanh mn ơi mai em ktra rồi !
vct s:=1/1!+2^2/2!+3^3/3+...+n^n/n!
tính giúp mình mai ktra rồi!!
uses crt;
var n,i:integer;
s:real;
//chuongtrinhcon
function gthua(n:integer):real;
var gt:real;
i:integer;
begin
gt:=1;
for i:=1 to n do
gt:=gt*i;
gthua:=gt;
end;
//chuongtrinhcon
function lthua(n,x:integer):real;
var lt:real;
i:integer;
begin
lt:=1;
for i:=1 to x do lt:=lt*x;
lthua:=lt;
end;
//chuongtrinhchinh
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(lthua(i,i)/gthua(i));
writeln(s:4:2);
readln;
end.
1.VCT nhập vào 1 dãy số. Tính tổng các số chẵn , tổng các số lẽ.
2.VCT nhập vào 1 dãy số. Đếm và in ra các số >0,<0.
Nhanh giúp mình với mai mình thi rồi .
1.
Program HOC24;
var a: array[1..32000] of longint;
i,n: integer;
tc,tl: longint;
begin
write('Nhap N: '); readln(n);
tc:=0; tl:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 2=0 then tc:=tc+a[i];
if a[i] mod 2=1 then tl:=tl+a[i];
end;
writeln('Tong chan la: ',tc);
write('Tong le la: ',tl);
readln
end.
2.
Program HOC24;
var a: array[1..32000] of longint;
d1,d2,i,n: integer;
begin
write('Nhap N: '); readln(n);
d1:=0; d2:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] >0 then d1:=d1+1;
if a[i] <0 then d2:=d2+1;
end;
writeln('Co ',d1,' so lon hon 0');
write('Co ',d2,' so be hon 0');
readln
end.
Mn giải giúp em 2 tờ này với ạ mai là em ktra rồi ạ
Bảo vệ chủ quyền biển đảo có ý nghĩa gì??, Giúp em với mn ơi... Ai làm trước em tick nhanh luôn ạ:(
Đây cũng là địa bàn chiến lược về quốc phòng, an ninh, là tuyến phòng thủ hướng đông của đất nước, tạo khoảng không gian cần thiết giúp kiểm soát việc tiếp cận lãnh thổ trên đất liền.
Máy biến áp có số vòng dây cuộn sơ cấp là 600 vòng, hiệu điện thế cuộn sơ cấp là 220V, hiệu điện thể cuộn thứ nhất là 12V. Hỏi số vòng dây cuộn thứ nhất là bao nhiêu? ( SOS mn ơi cứu, mai mình ktra roii )
mn ơi giúp mik với!! mai mik kiểm tra rồi. ai nhanh mik tick cho!!!
Em hãy nêu khái quát các cuộc khởi nghĩa chống phong kiến phương Bắc giành lại độc lập.
Viết 8-10 câu trình bày suy nghĩ của em về đức tính kiêu ngạo
Help me! Giúp vs trả lời nhanh lên mai mình ktra 15 phút rồi
Mọi người ơi! Giúp mình câu này vs mai mình ktra rồi 😭😭 ?Nêu trách nhiệm của bản thân em với chính sách văn hoá?
Tìm giá trị lớn nhất của biểu thức: A= | x | - | x - 2 |
nhanh nha mai nộp rồi mn ơi !!!