Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Công Bằng
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 1 2021 lúc 22:42

uses crt;

var a:array[1..100]of integer;   

i,n,t,t1,t2,t3,min,max:integer;   

kt:boolean;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin     

write('A[',i,']='); readln(a[i]); 

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do 

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

t:=t+a[i];

kt:=true;

for i:=2 to trunc(sqrt(t)) do 

if t mod i=0 then     

begin       

kt:=false;       

break;     

end;

writeln('Tong cua day so la: ',t);

if (kt=true) and (t>1) then writeln(t,' la so nguyen to')

else writeln(t,' khong la so nguyen to');

writeln('Cac so o vi tri le cua day so la: ');

t1:=0;

for i:=1 to n do 

if i mod 2=1 then     

begin       

write(a[i]:4);       

t1:=t1+a[i];     

end;

writeln;

writeln('Tong cac so o vi tri le cua day so la: ',t1);

if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')

else writeln(t1,' khong la so chinh phuong');

writeln('Cac so o vi tri chan cua day so la: ');

t2:=0;

for i:=1 to n do 

if i mod 2=0 then     

begin       

write(a[i]:4);       

t2:=t2+a[i];     

end;

writeln;

writeln('Tong cac so o vi tri chan cua day so la: ',t2);

t3:=0;

for i:=1 to t2 do 

if t2 mod i=0 then t3:=t3+i;

if t3=t2 then writeln(t2,' la so hoan hao')

else writeln(t2,' khong la so hoan hao');

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin     

if max<a[i] then max:=a[i];     

if min>a[i] then min:=a[i]; 

end;

writeln('So lon nhat cua day la: ',max);

writeln('So nho nhat cua day la: ',min);

writeln('Tong cua so lon nhat va so nho nhat la: ',max+min);

readln;

end.

dinhnguyentuhuy
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 1 2021 lúc 20:43

uses crt;

var a:array[1..100]of integer;

n,i,t,kt,j,t1,t2,t3,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cua day so vua nhap la: ',t);

kt:=0;

for i:=2 to trunc(sqrt(t)) do 

  if t mod i=0 then

begin

kt:=1;

break;

end;

if (kt=0) and (t>1) then writeln(t,' la so nguyen to');

else writeln(t,' khong la so nguyen to');

t1:=0;

writeln('Cac so o vi tri le cua day la: ');

for i:=1 to n do 

  if i mod 2=1 then 

begin

write(a[i]:4);

t1:=t1+a[i];

end;

writeln;

writeln('Tong cac so o vi tri le la: ',t1);

if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')

else writeln(t1,' khong la so chinh phuong');

t2:=0;

writeln('Cac so o vi tri chan la: ');

for i:=1 to n do 

  if i mod 2=0 then 

begin

write(a[i]:4);

t2:=t2+a[i];

end;

writeln;

writeln('Tong cac so o vi tri chan la: ',t2);

t3:=0;

for i:=1 to t2 do 

if t2 mod i=0 then t3:=t3+i;

if t3=t2 then writeln(t2,' la so hoan hao')

else writeln(t2,' khong la so hoan hao');

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

writeln('Tong cua hai so lon nhat va nho nhat la: ',max+min);

readln;

end.

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
31 tháng 5 2019 lúc 17:00

   Số hạng đứng sau giảm đi 5 đơn vị so với số hạng trước nó

   Từ đó, ta viết được hai số tiếp theo của dãy số : 6; 1; -4; -9; -14

   Ta có: 6 + 1 + (-4) + (-9 ) + (-14)

   = [7 + (-4)] + [(-9) + (-14)] = 3 + (-23) = -20

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
13 tháng 5 2017 lúc 18:28

   Số hạng đứng sau tăng thêm 7 đơn vị so với số hạng trước nó.

   Từ đó, ta viết được hai số tiếp theo của dãy số: -13; -6; 1; 8; 15.

   Ta có: (-13) + (-6) + 1 + 8 + 15

  = [(-13) + 15] + [(-6) + 8] + 1 = 2 + 2 + 1 = 5

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
14 tháng 4 2019 lúc 5:45

Chọn D

Quoc Tran Anh Le
Xem chi tiết
Hà Quang Minh
21 tháng 9 2023 lúc 23:19

a) Ta có: \({u_{n + 1}} = 3\left( {n + 1} \right) - 1 = 3n + 2\).

Suy ra \({u_{n + 1}} > {u_n}\).

b) Ta có: \({v_{n + 1}} = \frac{1}{{{{\left( {n + 1} \right)}^2}}}\).

Suy ra: \({u_{n + 1}} < {u_n}\).

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
2 tháng 9 2019 lúc 10:56

Chọn A.

Ta có: 

Do đó: 

Ta chứng minh dãy (yn)  tăng.

Ta có: 

Ta chứng minh dãy (yn)  bị chặn.

Trước hết ta chứng minh: xn 4(n – 1) (1)

 * Với n = 2, ta có: x2 = 4x1 = 4 nên (1) đúng với n = 2

 * Giả sử (1) đúng với n, tức là: xn 4(n – 1), ta có

Nên (1) đúng với n + 1. Theo nguyên lí quy nạp ta suy ra (1) đúng

Ta có: 

Vậy bài toán được chứng minh.

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
28 tháng 3 2017 lúc 17:59