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.

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.

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.

30 tháng 1 2021

cái dong đầu bị lỗi chỗ a[i] á xem lại hộ mình với

4 tháng 4 2016

1) là 3 số 3; 5; 7

8 tháng 11 2018

Bài 1:

 Các đại biểu tương ứng với 6 điểm A, B, C, D, E, F. Hai đại biểu X và Y nào đó mà quen nhau thì ta tô đoạn thẳng XY bằng màu xanh còn nếu X vá Y không quen nhau thì tô đoạn XY màu đỏ.

    Xét 5 đoạn thẳng AB, AC, AD, AE, AF: Theo nguyên tắc Dirichlet thì tồn tại ba đoạn cùng màu. Giả sử AB, AC, AD màu xanh. Xét ba điểm B, C, D: vì 3 đại biểu nào cũng có hai người quen nhau suy ra một trong ba đoạn BC, CD, DB màu xanh.

     Giả sử BC màu xanh thì A, B, C đôi một quen nhau.

     Còn nếu AB, AC, AD màu đỏ thì B, C, D đôi một quen nhau.

8 tháng 11 2018

Theo nguyên lý Di-rich-le ta suy ra: Tồn tại hai số trong 20 số khi chia cho 19 có cùng số dư. Suy ra hiệu của hai số đó chia hết cho 19.

Giả sử 10n, 10m là hai số có cùng số dư khi chia cho 19 (1 ≤ n < m ≤ 20).

  • 10m – 10n ⋮ 19
  • 10n.(10m-n – 1) ⋮ 19, mà 10n không chia hết cho 19 nên suy ra:

10m-n – 1 ⋮ 19

  • 10m-n – 1 = 19k (k ∈ N)
  • 10m-n = 19k + 1 (đpcm).
4 tháng 10 2018

Mik chỉ bít rằng 49 là số chính phương vì nó =72.

Mik nghĩ rằng từ đây bạn có thể suy ra các số còn lại .

Học tốt #

4 tháng 10 2018

Gà 

\(49=7^2\)

\(4489=67^2\)

\(444889=667^2\)

\(44448889=6667^2\)

\(..............................\)

\(\Rightarrow\)\(\left(ĐPCM\right)\)