Một số có đặc điểm là khi đọc nó từ phải sang trái ta sẽ được một số gấp 9/2 lần số đọc từ trái sang phải. Hỏi số này số nào ?
Gợi ý: Gọi số cần tìm là x (x khác 0)
x chia hết cho 1, 2, 3, 9 và chính nó
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
ML
1 tháng 6 2021
Program HOC24;
var m,i,n: longint;
d1,d2,d3: integer;
function dx(x: longint): boolean;
var j: longint;
s,s1: string;
begin
s1:=''; dx:=false;
str(x,s);
for j:=length(s) downto 1 do
s1:=s1+s[j];
if s=s1 then dx:=true else exit;
end;
function cp(k: longint): boolean;
begin
cp:=false;
if k=sqr(trunc(sqrt(k))) then cp:=true else exit;
end;
begin
write('Nhap M; N: '); readln(m,n);
d1:=0; d2:=0; d3:=0;
if (m<n) and (m>=10) and (n<=100000) then
begin
write('Cac so doi xung la: ');
for i:=m to n do
if dx(i) then
begin
d1:=d1+1;
write(i,' ');
end;
writeln;
writeln('Co ',d1,' so doi xung');
write('Cac so chinh phuong la: ');
for i:=m to n do
if cp(i) then
begin
d2:=d2+1;
write(i,' ');
end;
writeln;
writeln('Co ',d2,' so chinh phuong');
write('Cac so doi xung chinh phuong la: ');
for i:=m to n do
if dx(i) and cp(i) then
begin
d3:=d3+1;
write(i,' ');
end;
writeln;
write('Co ',d3,' so doi xung chinh phuong');
end;
readln
end.
5 tháng 2 2023
Sửa đề : đọc từ phải sang trái thì đc một số gấp 6 lần số đã cho
Gọi số cần tìm là \(\overline{abc}\)
Khi đọc tù phải sang trái , ra được số \(\overline{cba}\)
VÌ khi đọc từ phải sang trái thì đc một số gấp 6 lần số đã cho , ta có :
\(\overline{cba}=6\overline{abc}\)
+) Vì cba chia hết cho 6 => a chẵn
Mặt khác a khác 0
=> abc x 6 là số có 4 chữ số
Vậy không có số nào thỏa mãn
5 tháng 2 2023
Sửa đề : đọc từ phải sang trái thì đc một số gấp 6 lần số đã cho
Gọi số cần tìm là \(\overline{abc}\)
Khi đọc tù phải sang trái , ra được số :\(\overline{cba}\)
VÌ khi đọc từ phải sang trái thì đc một số gấp 6 lần số đã cho , ta có :
+) Vì cba chia hết cho 6 => a chẵn
Mặt khác a khác 0
=> abc x 6 là số có 4 chữ số
Vậy không có số nào thỏa mãn
30 tháng 6 2023
program superSymmetricalSubstring;
var
s: string;
function isSymmetrical(str: string): boolean;
var
i, len: integer;
begin
len := length(str);
for i := 1 to len div 2 do
begin
if str[i] <> str[len - i + 1] then
begin
exit(false);
end;
end;
exit(true);
end;
function countSuperSymmetricalSubstrings(s: string): integer;
var
i, j, len, count: integer;
begin
len := length(s);
count := 0;
for i := 1 to len do
begin
for j := 2 to len - i + 1 do
begin
if isSymmetrical(copy(s, i, j)) then
begin
count := count + 1;
end;
end;
end;
count := count + len;
exit(count);
end;
begin
write('Nhap xau S: ');
readln(s);
writeln('So xau con sieu doi xung cua S: ', countSuperSymmetricalSubstrings(s));
readln;
end.
