Tìm 1 số có 3 chữ số biết số đó chia hết cho 12 và hiệu số đó và nghịch đảo của nó là 1 số chính phương
Mọi người ơi giúp mk vs !!!
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.
5 = 5
27 = 33
BCNH ( 5;27 ) = 5 x 33 = 135
BC ( 5;27 ) = B ( 135 ) = 0;135;270;405;....;2565;2700;2835;2970;...
Mà hai chữ số giữa của số đó là 97 nên số đó là 2970
Bài 1 : Gọi số thứ nhất cần tìm là x,số thứ hai cần tìm là y,số thứ ba cần tìm là z. Theo đề bài ta có :
x2 + y2 + z2 = 8125
Mà \(y=\frac{2}{5}x\)=> \(5y=2x\)=> \(\frac{x}{5}=\frac{y}{2}\)(1)
\(y=\frac{3}{4}z\)=> 4y = 3z => \(\frac{y}{3}=\frac{z}{4}\)(2)
Từ (1) và (2) => \(\frac{x}{5}=\frac{y}{2};\frac{y}{3}=\frac{z}{4}\)
+) \(\frac{x}{5}=\frac{y}{2}\Rightarrow\frac{x}{15}=\frac{y}{6}\)
+) \(\frac{y}{3}=\frac{z}{4}\Rightarrow\frac{y}{6}=\frac{z}{8}\)
=> \(\frac{x}{15}=\frac{y}{6}=\frac{z}{8}\)
=> \(\frac{x^2}{15^2}=\frac{y^2}{6^2}=\frac{z^2}{8^2}\)
Áp dụng t/c dãy tỉ số bằng nhau ta có :
\(\frac{x^2}{15^2}=\frac{y^2}{6^2}=\frac{z^2}{8^2}=\frac{x^2+y^2+z^2}{15^2+6^2+8^2}=\frac{8125}{325}=25=5^2\)
=> x2 = 52 . 152 = 752 => x = \(\pm\)75
y2 = 52 . 62 = 302 => y = \(\pm\)30
z2 = 52 . 82 = 402 => z = \(\pm\)40
Bài 2 tự làm
2. Các số đó là 153, 351, 450, 657, 756, 297, 459.
Còn lại mik ko biết thông cảm nha
k với
câu 1 đáp án là 1998 ta lấy 333,666,999 cộng lại sẽ ra
uses crt; var a,b:array[1..100000]of integer; i,n,kt,j,dem,x,y,kt1:integer; st,st1:string; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; dem:=0; for i:=1 to n do if a[i]>1 then begin kt:=0; for j:=2 to a[i]-1 do if a[i] mod j=0 then begin kt:=1; break; end; if kt=0 then begin inc(dem); b[dem]:=a[i]; end; end; for i:=1 to dem do begin str(a[i],st); st1:=''; for j:=length(st) downto 1 do st1:=st1+st[j]; val(st1,x,y); kt1:=0; for j:=2 to x-1 do if x mod j=0 then begin kt1:=1; break; end; if kt1=0 then write(a[i]:4); end; readln; end.
uses crt; var a,b:array[1..100000]of integer; i,n,kt,j,dem,x,y,kt1:integer; st,st1:string; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; dem:=0; for i:=1 to n do if a[i]>1 then begin kt:=0; for j:=2 to a[i]-1 do if a[i] mod j=0 then begin kt:=1; break; end; if kt=0 then begin inc(dem); b[dem]:=a[i]; end; end; for i:=1 to dem do begin str(a[i],st); st1:=''; for j:=length(st) downto 1 do st1:=st1+st[j]; val(st1,x,y); kt1:=0; for j:=2 to x-1 do if x mod j=0 then begin kt1:=1; break; end; if kt1=0 then write(a[i]:4); end; readln; end.