Những câu hỏi liên quan
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

 

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

 

Bình luận (0)
Mozono Nanami
Xem chi tiết
Dương Thị Huyền
Xem chi tiết
Bùi Hoàng Linh Chi
Xem chi tiết
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

Bình luận (0)
Ídnkcds
Xem chi tiết
Kiều Vũ Linh
13 tháng 1 2022 lúc 11:24

2A = 2.16 + 10.1 = 32 + 10 = 42

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
4 tháng 7 2018 lúc 17:58

Đáp án C

Bình luận (0)
NSA tươi
Xem chi tiết
27.Nguyễn Ngọc Phúc
4 tháng 1 2022 lúc 21:34

Hình như cái này là lớp 10 mà sao lại đưa vô mục lớp 8

Bình luận (0)
Nguyễn Lê Phước Thịnh
5 tháng 1 2022 lúc 11:41

Chọn A

Bình luận (0)
Mây Nè
Xem chi tiết