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.

26 tháng 7 2020

Dạ em xin lỗi ạ, em sẽ rút kinh nghiệm về việc này.

AH
Akai Haruma
Giáo viên
9 tháng 7 2020

Đề bài thiếu.

Thực sự nếu các bạn không kiểm tra kỹ đề trước khi đăng thì không thể mong mỏi nhiều về việc nhận được sự hỗ trợ từ mọi người cả.

NV
13 tháng 7 2020

Đặt \(\left(\sqrt[3]{a};\sqrt[3]{b};\sqrt[3]{c}\right)=\left(x^3;y^3;z^3\right)\Rightarrow xyz=1\)

Áp dụng BĐT \(x^3+y^3\ge xy\left(x+y\right)\) ta được:

\(P=\frac{1}{x^3+y^3+1}+\frac{1}{y^3+z^3+1}+\frac{1}{z^3+x^3+1}\)

\(P\le\frac{1}{xy\left(x+y\right)+1}+\frac{1}{yz\left(y+z\right)+1}+\frac{1}{zx\left(z+x\right)+1}\)

\(P\le\frac{xyz}{xy\left(x+y\right)+xyz}+\frac{xyz}{yz\left(y+z\right)+xyz}+\frac{xyz}{zx\left(z+x\right)+xyz}\)

\(P\le\frac{z}{x+y+z}+\frac{x}{x+y+z}+\frac{y}{x+y+z}=1\)

Dấu "=" xảy ra khi \(x=y=z=1\) hay \(a=b=c=1\)

10 tháng 1 2021

uses crt;var n: longint;    chrn: string;    valn,sum,max,i,preperror: byte;begin    write('Nhap so can kiem tra: ');    readln(n);    str(n,chrn);    for i:=1 to length(chrn) do    begin        val(chrn[i],valn,preperror);        sum:=sum+valn;        if max<valn then max:=valn;        valn:=0    end;    writeln('Ket qua: ');    writeln(length(chrn));    writeln(sum);    write(max);    readln;end.uses crt;var n: longint;    chrn: string;    valn,sum,max,i,preperror: byte;begin    write('Nhap so can kiem tra: ');    readln(n);    str(n,chrn);    for i:=1 to length(chrn) do    begin        val(chrn[i],valn,preperror);        sum:=sum+valn;        if max<valn then max:=valn;        valn:=0    end;    writeln('Ket qua: ');    writeln(length(chrn));    writeln(sum);    write(max);    readln;end.

10 tháng 1 2021

Program HOC24;

var N:longint;

max,tg,t,d: integer;

Begin

write('Nhap N : '); readln(N);

max:=0;

while n<>0 do

begin

tg:=n mod 10;

d:=d+1;

t:=t+tg;

if tg>max then max:=tg;

n:=n div 10;

end;

writeln('So nguyen N co ',d,' chu so');

writeln('Tong cac chu so cua N la : ',t);

write('Chu so lon nhat cua N la :',max);

readln

end.

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

Câu 1: 

uses crt;

var n,i,dem,j,kt1,kt2,a,b,kt:integer;

begin

clrscr;

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

dem:=0;

if n mod 2=1 then   

begin     

a:=2;     

b:=n-a;     

kt:=0;     

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

   if b mod i=0 then kt:=1;     

if kt=0 then inc(dem);   

end

else begin       

              for i:=2 to n div 2 do         

begin             

a:=i;             

b:=n-i;             

kt1:=0;             

kt2:=0;             

for j:=2 to trunc(sqrt(a)) do               

if a mod j=0 then kt1:=1;             

for j:=2 to trunc(sqrt(b)) do               

if b mod j=0 then kt2:=1;             

if (kt1=0) and (kt2=0) then inc(dem);         

end;     

end;

writeln('So cach phan tich ',n,' thanh tong hai so nguyen to la: ',dem);

readln;

end.

Câu 2: 

uses crt;

var n,x:integer;

{-----------------ham-kiem-tra-nguyen-to-----------------}

function ktnt(x:integer):boolean;

var kt:boolean;   

i:integer;

begin   

kt:=true;   

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

if x mod i=0 then       

begin           

kt:=false;           

break;       

end;   

if kt=true then ktnt:=true   

else ktnt:=false;

end;

{---------------ham-kiem-tra-so-doi-xung---------------}

function ktdx(x:integer):boolean;

var kt:boolean;   

d,i:integer;   

st:string;

begin   

str(x,st);   

d:=length(st);   

kt:=true;   

for i:=1 to d do     

if st[i]<>st[d-i+1] then       

begin           

kt:=false;           

break;       

end;   

if kt=true then ktdx:=true   

else ktdx:=false;

end;

{--------------chuong-trinh-chinh---------------}

begin

clrscr;

repeat   

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

until n>0;

if (ktnt(n)=true) and (ktdx(n)=true) then writeln(n,' la so nguyen to doi xung')

else writeln(n,' khong la so nguyen to doi xung');

x:=n+1;

repeat   

x:=x+1;

until (ktnt(x)=true) and (ktdx(x)=true);

writeln('So nguyen to doi xung nho nhat lon hon ',n,' la: ',x);

readln;

end.

15 tháng 1 2021

Mình cảm ơn bạn nhiều nha

 

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long x,n;

int main()

{

cout<<x<<n;

cout<<pow(x,n);

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,ln;

int main()

{

ln=LLONG_MIN;

cin>>n;

for (i=1; i<=n; i++)

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

19 tháng 11 2021

bạn hỏi khó thế, đây mới là phần cho lớp 8 thôi mà

18 tháng 12 2020

a) n mod 3=0;

b) m mod 7<>0;

c) y<=100;

d) (a+b>c) and (b+c>a) and (a+c>b);

e) ((a>0) and (b>0)) or ((a<0) and (b<0));

f) a/b=3/4;

g) ((a>5) and (b+c=10)) or ((a<=5) and (b+c=-20));

h) (m=1) or (m=3) or (m=5) or (m=7) or (m=8);