Chứng minh rằng khi ta cộng một số tự nhiên với số đảo ngược của nó nhiều lần ta được một số xuôi ngược.
(cho 1 điểm nếu trả lời đúng và chính xác)
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.
Những câu hỏi liên quan
NH
4 tháng 8 2020
Gọi số cần tìm là : \(ab\)
Theo bài ta có :
\(ab+ba=n^2\)
\(\Rightarrow10a+b+10b+a=n^2\)
\(\Rightarrow11\left(a+b\right)=n^2\)
\(\Rightarrow n^2⋮11\)
\(\Rightarrow n^2⋮11^2\)
\(\Rightarrow11\left(a+b\right)⋮11^2\)
\(\Rightarrow a+b=11\)
\(\Rightarrow a;b\in\left\{\left(9,2;\left(8,3\right);\left(7,4\right);\left(6,5\right);\left(5,6\right);\left(4,7\right);\left(3,8\right);\left(2,9\right)\right)\right\}\)
\(\Rightarrow ab\in\left\{92;83;74;65;47;38;29\right\}\)
D
1 tháng 5 2015
Gọi số cần tìm là ab (a khác 0; a,b < 10)
Theo bài ra ta có:
ab + ba = 10a + b + 10b + a = 11a + 11b = 11(a + b)
Vì a + b là số chính phương nên a + b chia hết cho 11.
Mà 1 ≤ a < 10
2 ≤ b < 10
=> 3 ≤ a + b < 20
=> a + b = 11. Mà a < b
Ta có bảng sau :
| a | 2 | 3 | 4 | 5 |
| b | 9 | 8 | 7 | 6 |
Mà ba (gạch đầu) là số nguyên tố nên ba = 83
Vậy ab = 38
10 tháng 12 2020
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.
10 tháng 12 2020
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.
