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.

12 tháng 12 2020

uses crt; var x:integer; begin clrscr; x:=0; while x*x*x<=3000 do   begin      write(x:4);      x:=x+1;   end; readln; end.

15 tháng 12 2021

Đặt x2−2x+m=tx2−2x+m=t, phương trình trở thành t2−2t+m=xt2−2t+m=x

Ta có hệ {x2−2x+m=tt2−2t+m=x{x2−2x+m=tt2−2t+m=x

⇒(x−t)(x+t−1)=0⇒(x−t)(x+t−1)=0

⇔[x=tx=1−t⇔[x=tx=1−t

⇔[x=x2−2x+mx=1−x2+2x−m⇔[x=x2−2x+mx=1−x2+2x−m

⇔[m=−x2+3xm=−x2+x+1⇔[m=−x2+3xm=−x2+x+1

Phương trình hoành độ giao điểm của y=−x2+x+1y=−x2+x+1 và y=−x2+3xy=−x2+3x:

−x2+x+1=−x2+3x−x2+x+1=−x2+3x

⇔x=12⇒y=54⇔x=12⇒y=54

Đồ thị hàm số y=−x2+3xy=−x2+3x và y=−x2+x+1y=−x2+x+1

15 tháng 3 2021

17 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x;

cout<<x*x*x+y*y*y-2*x;

return 0;

}

14 tháng 8 2018

\(6^{3000}=3^{6000}=27^{2000}\)

vậy x=26

14 tháng 8 2018

63000=63.1000=(63)1000=2161000

x2000=x2.1000=(x2)1000

\(\Rightarrow\)x2<216 thì x2000<63000

\(\Rightarrow\)x lớn nhất là 14

uses crt;
var i,n,c,b,uc:integer;
bcnn:int64;
a:array[1..100] of integer;
{--------------------------chuong-trinh-con-tim-ucln-cua-hai-so---------------}
function ucln(c,b:integer):integer;
var r:integer;
begin
r:=c mod b;
while r<>0 do
begin
c:=b;
b:=r;
r:=c mod b;
end;
ucln:=b;
end;
{---------------------------chuong-trinh-chinh-----------------------------------}
begin
clrscr;
Write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;

uc:=ucln(a[1],a[2]);

for i:=3 to n do 

 uc:=ucln(uc,a[i]);

writeln(uc);

readln;

end.

19 tháng 1 2018

program bai1;

var n,i:longint;

begin

repeat

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

until ((n>=0) and (n<=3000));

write('Cac uoc cua ',n,' la: ');

for i:=1 to n do

if (n mod i=0) then write(i,' ');

readln

end.

uses crt;

var a,b:integer;

{-------------chuong-trinh-con-tinh-tong---------------------}

function tong(x,y:integer):integer;

begin

tong:=x+y;

end;

{-------------chuong-trinh-con-tinh-tich------------------}

function tich(x,y:integer):integer;

begin

tich:=x*y;

end;

{-----------------chuong-trinh-con-so-lon------------------}

function solon(x,y:integer):integer;

begin

if x>y then solon:=x

else solon:=y;

end;

{-----------------chuong-trinh-con-so-be------------------}

function sobe(x,y:integer):integer;

begin

if x<y then sobe:=x

else sobe:=y;

end;

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

begin

clrscr;

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

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

writeln('Tong la: ',tong(a,b));

writeln('Tich la: ',tich(a,b));

writeln('So lon la: ',solon(a,b));

writeln('So be la: ',sobe(a,b));

readln;

end.

18 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

24 tháng 1 2018

Program vct;

Uses crt;

var

n,i:integer;

begin

writeln('moi nhap so n la: '); readln(n);

for i:=1 to n do

if (n mod i = 0) then write(i); readln;

end.

24 tháng 1 2018

Bài này đầy đủ hơn của bạn CTV

program bai1;

n,i:longint;

begin

repeat

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

until ((n>0) and (n<3000));

write('Tat ca cac uoc cua ',n,' la: ');

for i:=1 to n do

if n mod i=0 then write(i);

readln

end.