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.
Xét khai triển:
\(\left(1+x\right)^n=C_n^0+xC_n^1+x^2C_n^2+...+x^nC_n^n\)
Đạo hàm 2 vế:
\(n\left(1+x\right)^{n-1}=C_n^1+2xC_n^2+...+n.x^{n-1}C_n^n\)
Thay \(x=1\)
\(\Rightarrow n.2^{n-1}=C_n^1+2C_n^2+...+nC_n^n\)
\(\Rightarrow n.2^{n-1}+1=C_n^0+C_n^1+2C_n^2+...+nC_n^n\)
\(\Rightarrow S=n.2^{n-1}+1\)
a) Tổng 2 số nguyên dương là 1 số nguyên dương.Đúng
b) Tổng 2 số nguyên âm là 1 số nguyên âm.Đúng
c) Tổng của 1 số nguyên âm và 1 số nguyên dương là 1 số nguyên dương .Sai
Sửa :Tổng của 1 số nguyên âm và 1 số nguyên dương là 1 số nguyên .
d) Tổng của 1 số nguyên dương và 1 số nguyên âm là 1 số nguyên âm. Sai
Sửa Tổng của 1 số nguyên dương và 1 số nguyên âm là 1 số nguyên .
e) Tổng của 2 số đối nhau bằng 0.Đúng
GIÚP MK NỐP MẤY CÂU CÒN LẠI NHA MK SẼ TICK NHÉ
MK ĐANG CẦN GẤP LẮM
uses crt;
var n,d,i,t,x,y:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
if n mod 2=0 then writeln('1')
else writeln('0');
str(n,st);
d:=length(st);
writeln('Cac chu so cua ',n,' la: ');
for i:=1 to d do
write(st[i]:4);
writeln;
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('Tong cac chu so cua ',n,' la: ',t);
readln;
end.
Bài 2:
Program HOC24;
var i,j,n: integer;
t: longint;
a: array[1..32000] of integer;
function hh(x:integer):boolean;
var i,s:integer;
begin
s:=0;
hh:=false;
for i:= 1 to x div 2 do
if x mod i = 0 then s:=s+i;
if s = x then hh:=true;
end;
begin
write('Nhap so nguyen : '); readln(n);
if n=0 then
begin
writeln(n);
write('Tong cac so vua nhap la 0 va tong do khong phai so hoan hao');
end
else
begin
a[1]:=n; i:=1;
while n<>0 do
begin
i:=i+1;
write('Nhap so nguyen : '); readln(n);
a[i]:=n;
end;
t:=0;
write('Cac so n vua nhap la : ');
for j:=1 to i do
begin
t:=t+a[j];
write(a[j],' ');
end;
writeln;
write('Tong cac so vua nhap la : ',t,' ;');
if hh(t) then write('Tong nay la so hoan hao') else write('Khong phai so hoan hao');
end;
readln
end.
Bài 1:
Program HOC24;
var i,n: integer;
t: longint;
function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('n='); readln(n);
t:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,':'); readln(a[i]);
t:=t+a[i];
end;
for i:=1 to n do if i<n then write(a[i],' ') else
if i=n then writeln(a[i]);
write('Tong cac so vua nhap la : ',t,' ;');
if nt(t) then write('Tong la so nguyen to') else write('Tong khong phai la so nguyen to');
readln
end.
Bài 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if i mod 2=0 then s:=s+i;
write('Tong cac so chan tu 1 den ',n,' la: ',s); writeln;
for i:=1 to n do
if (i mod 3=0) and (i mod 5=0) then write(i,' ');
readln
end.
Bài 2:
uses crt;
var n,i,s:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then write(a[i],' '); writeln;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]<>0) then s:=s+a[i];
write('Tong cac so nguyen chan la: ',s);
readln
end.
Ý nghĩa của đoạn lệnh trên là tính xem có bao nhiêu số chẵn và bao nhiêu số lẻ trong mảng A
const fi='gameshow.inp';
fo='gameshow.out';
var f1,f2:text;
a,b:array[1..100]of integer;
n,i,tg,d,s,x,j,vtd,vt:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
{----------------------xu-ly------------------}
tg:=0;
for i:=1 to n do
tg:=tg+a[i];
for i:=n downto 1 do
if tg mod i=0 then
begin
d:=0;
s:=0;
x:=tg div i;
for j:=1 to n do
begin
s:=s+a[j];
if s=x then
begin
vt:=j;
inc(d);
b[d]:=vt;
s:=0;
end;
end;
if s=0 then
begin
b[d]:=n;
break;
end;
end;
writeln(f2,x);
writeln(f2,d);
for i:=1 to d do
write(f2,b[i],' ');
close(f1);
close(f2);
end.
B = 99..9 (n số 9 )
= 99...900...0 ( n+1 số 9 và n+1 số 0).
Đặt x =11...1 (n+1 số 1) .
Thì B =9x.10^(n+1) -9x =9x.[10^(n+1) -1] =9x.99...9 (n+1 số 9 )
nên B = 9x.9x = (9x)^2 =(99...9)^2 (n+1 số 9 ).
Câu 2:
Program HOC24;
var i: integer;
t: longint;
begin
t:=0;
for i:=1 to 100 do t:=t+i;
write('Tong 100 so tu nhien dau tien la : ',t);
readln
end.
Bài 1:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
writeln('tong cac so nguyen tu 1 toi ',n,' la: ',t);
readln;
end.
Bài 2:
uses crt;
var n,t:longint;
begin
clrscr;
t:=0;
repeat
write('n='); readln(n);
t:=t+n;
until n=0;
writeln('tong cac so nguyen nhap tu ban phim la: ',t);
readln;
end.
Bài 3:
uses crt;
var d,i,t,n,x:longint;
a:array[1..100]of longint;
st:string;
begin
clrscr;
write('n='); readln(n);
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],a[i],x);
t:=t+a[i];
end;
writeln('tong cac chu so cua ',n,' la: ',t);
readln;
end.
Câu 1:
uses crt;
var n,i:integer;
tong:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
i:= 0;
while i < n do
begin
i:= i + 1;
tong:= tong + i;
end;
write('Tong cac so tu 1 den ',n,'la: ',tong);
readln
end.
Câu 2:
uses crt;
var i,a:integer;
tong:longint;
begin
clrscr;
a:= 1; i:= 1; tong:= 0;
while a <> 0 do
begin
write('Nhap phan tu thu ',i,': ');
readln(a);
i:= i + 1;
tong:= tong + a;
end;
write('Tong cac so = ',tong);
readln
end.
Câu 3:
uses crt;
var n,luu,tong: integer;
begin
clrscr;
write('Nhap so N: ');readln(n);
luu:= n; tong:= n mod 10;
while (n div 10 > 0) do
begin
n:= n div 10;
tong:= tong + (n mod 10);
end;
write('Tong cac chu so cua so ',luu,' la: ',tong);
readln
end.
Ta có
Cho
Chọn D