Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Bùi Hoàng Linh Chi
Xem chi tiết
Đỗ Ngọc Hà
Xem chi tiết
Bùi Hoàng Linh Chi
Xem chi tiết
Minh Thư
Xem chi tiết
Đỗ Ngọc Điệp
Xem chi tiết
Đào Đức Huy
30 tháng 8 2018 lúc 20:24

mink đã làm rùi nhưng ko may bấm hủy mong các bạn

Thông Cảm

Đinh Cao Sơn
Xem chi tiết
Mozono Nanami
Xem chi tiết
anh đẹp zai
Xem chi tiết
Trần Đức Huy
29 tháng 1 2022 lúc 9:51

Viết bằng pascal dc k

 

Trần Đức Huy
29 tháng 1 2022 lúc 11:58

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.

 

Nguyễn Minh Khang
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 12 2021 lúc 20:39

Câu 1: Không

Vì 1112>11110