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.

20 tháng 3 2021

Nhập phân số tối giản nhé

20 tháng 3 2021

x:1/2=4
x=4x1/2
x=4/1x1/2
x=4/2=2/1

4 tháng 12 2015

(x+1/2)+(x+1/4)+(x+1/8)+(x+1/6)=1

(x+x+x+x)+(1/2+1/4+1/6+1/8)=1

4x+(12/24+6/24+4/24+3/24)=1

4x+25/24=1

4x=1-25/24

4x=-1/24

x=-1/24:4

x=-1/96

11 tháng 3 2017

\(A=\left(1-\frac{1}{3}\right).\left(1-\frac{1}{4}\right).\left(1-\frac{1}{5}\right)....\left(1-\frac{1}{99}\right)\)

\(A=\frac{2}{3}.\frac{3}{4}.\frac{4}{5}....\frac{98}{99}\)'

Ta gạch các chữ số giống nhau ở tử số và mẫu số

Mà ta thấy mẫu số phân số sau là tử số phân số trước

Vậy chỉ còn 2 ở tử số và 99 ở mẫu số

Vậy \(A=\frac{2}{99}\)

A = ( 1 - 1/3 ) x ( 1 - 1/4 ) x ( 1 - 1/5 ) x ... x ( 1 - 1/99 )

A = 2/3 x 3/4 x 4/5 x ... x 98/99

A = \(\frac{2\cdot3\cdot4\cdot...\cdot98}{3\cdot4\cdot5\cdot...\cdot99}\)

A = 2/99 ( vì mk gạch những số có cả ở tử và mẫu )

5 tháng 3 2022

Dạ pascal được không ạ, 

29 tháng 3 2016

cậu ủng hộ tớ đi đã

29 tháng 3 2016

\(\frac{38}{33}\)

ai ủng hộ lại !!!

5 tháng 3 2017

Tù đó ta sẽ viết được phân số: 1/2*2/3*3/4*4/5*......*2006/2007 và sẽ bằng 1/2007

uses crt;

var a,b,x,y:integer;

//chuongtrinhcon

function ucln(var a,b:integer):integer;

var r:integer;

begin

while b>0 do

begin

r:=a mod b;

a:=b;

b:=r;

end;

ucln:=a;

end;

//chuongtrinhchinh

begin

clrscr;

readln(a,b);

x:=a;

y:=b;

if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));

if (x<0) and (y<0) then 

begin

x:=abs(x);

y:=abs(y);

a:=abs(a);

b:=abs(b);

writeln(x div ucln(a,b),' ',y div ucln(a,b));

end; 

if (x<0) and (y>0) then 

begin

write('-');

x:=abs(x);

y:=abs(y);

a:=abs(a);

b:=abs(b);

writeln(x div ucln(a,b),' ',y div ucln(a,b));

end;

if (x>0) and (y<0) then 

begin

write('-');

x:=abs(x);

y:=abs(y);

a:=abs(a);

b:=abs(b);

writeln(x div ucln(a,b),' ',y div ucln(a,b));

end;

readln;

end.

uses crt;

var a,b,x,y:integer;

//chuongtrinhcon

function ucln(var a,b:integer):integer;

var r:integer;

begin

while b>0 do

begin

r:=a mod b;

a:=b;

b:=r;

end;

ucln:=a;

end;

//chuongtrinhchinh

begin

clrscr;

readln(a,b);

x:=a;

y:=b;

if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));

if (x<0) and (y<0) then 

begin

x:=abs(x);

y:=abs(y);

a:=abs(a);

b:=abs(b);

writeln(x div ucln(a,b),' ',y div ucln(a,b));

end; 

if (x<0) and (y>0) then 

begin

write('-');

x:=abs(x);

y:=abs(y);

a:=abs(a);

b:=abs(b);

writeln(x div ucln(a,b),' ',y div ucln(a,b));

end;

if (x>0) and (y<0) then 

begin

write('-');

x:=abs(x);

y:=abs(y);

a:=abs(a);

b:=abs(b);

writeln(x div ucln(a,b),' ',y div ucln(a,b));

end;

readln;

end.