đếm từ 1 đến n có bao nhiêu số đối xứng dạng nón
vì dụ các số đối xứng dạng nón như : 161,123321,142241,121,123321,...
input: 123
output: 19
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
19 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i;
bool kt;
int main()
{
getline(cin,st);
kt=true;
d=st.length();
for (i=0; i<=d-1; i++)
if (st[i]!=st[d-i-1]) kt=false;
if (kt==true) cout<<"YES";
else cout<<"NO";
return 0;
}
MN
3 tháng 7 2021
Có 10 cách chọn số đứng thứ 3 (từ 0 đến 9)
Có 9 cách chọn số đứng thứ đầu và cuối (từ 1 đến 9)
Có 10 cách chọn số thứ 2 vầ thứ 4 (từ 0 đến 9)
Suy ra có 10.9.10 = 900 số thỏa mãn
1 tháng 5 2021
uses crt;
var s:string;
i,d,dem,dem1,kt:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln('So ki tu la chu so la: ',dem);
dem1:=0;
for i:=1 to d do
if (st[i] in ['A'..'Z']) or (st[i] in ['a'..'z']) then inc(dem1);
writeln('So ki tu la chu cai la: ',dem1);
write('Xau sau khi xoa ki tu trang la: ');
for i:=1 to d do
if st[i]<>#32 then write(st[i]);
writeln;
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln('Xau doi xung')
else writeln('Xau khong doi xung');
readln;
end.
HQ
Hà Quang Minh
Giáo viên
3 tháng 10 2023
* Hình vuông có 4 trục đối xứng gồm 2 đường chéo của hình vuông và 2 đường thẳng đi qua trung điểm từng của cặp cạnh đối diện của hình vuông
* Hinh tròn có vô số trục đối xứng là các đường thẳng đi qua tâm của hình vuông.
program dem_so_doi_xung;
var
n, i, j, count: longint;
s: string;
function doi_xung(s: string): boolean;
var
i: longint;
begin
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then
begin
doi_xung := false;
exit;
end;
doi_xung := true;
end;
function doi_xung_dang_non(s: string): boolean;
var
i: longint;
begin
for i := 1 to length(s) div 2 do
if not((s[i] = '1') or (s[i] = '0') or (s[i] = '8')) or (s[length(s) - i + 1] <> s[i]) then
begin
doi_xung_dang_non := false;
exit;
end;
doi_xung_dang_non := true;
end;
begin
write('Nhap n: ');
readln(n);
count := 0;
for i := 1 to n do
begin
str(i, s);
if doi_xung(s) and doi_xung_dang_non(s) then
inc(count);
end;
writeln('So luong so doi xung dang non la: ', count);
readln;
end.