A) x : 1/2 = 4
Hãy nhập phân số tối gia r
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.
(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
\(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 )
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.
Nhập phân số tối giản nhé
x:1/2=4
x=4x1/2
x=4/1x1/2
x=4/2=2/1