Những câu hỏi liên quan
DH
Xem chi tiết
BC
Xem chi tiết
DH
Xem chi tiết
MT
Xem chi tiết
DD
Xem chi tiết
DH
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

Bình luận (0)
DS
Xem chi tiết
MN
Xem chi tiết
AZ
Xem chi tiết
TH
29 tháng 1 2022 lúc 9:51

Viết bằng pascal dc k

 

Bình luận (1)
TH
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.

 

Bình luận (0)
NK
Xem chi tiết
NT
16 tháng 12 2021 lúc 20:39

Câu 1: Không

Vì 1112>11110

Bình luận (0)