Biểu diễn số 100...012 (n số 0) trong hệ thập phâ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
DT
0
BH
0
DN
1
DC
0
TD
29 tháng 1 2022
Var k,i,t:longint;
Function kt(n:longint):boolean;
Var s,x:string;
d,m,j:longint;
Begin
s:='';
x:='';
j:=0;
d:=0;
While n<>0 do
Begin
d:=n mod 2;
n:=n div 2;
Str(d,s);
x:=x+s;
j:=length(x)
end;
s:=x;
For m:=1 to j do
x[m]:=x[j-m+1];
If s=x then Exit(True) else Exit(False);
end;
Begin
{$ifndef online_JUDGE}
Assign(input,'standard.inp');
Reset(input);
Assign(output,'standard.out');
Rewrite(output);
{$endif}
Read(k);
For i:=1 to k+1 do
Begin
If kt(i-1) then inc(t);
end;
Write(t);
end.