Hsjikfk
Chia sẻ bởi Phạm Anh Linh Liên |
Ngày 14/10/2018 |
29
Chia sẻ tài liệu: hsjikfk thuộc Tư liệu tham khảo
Nội dung tài liệu:
Program phan_so;
var dem,i,j,l,k,n:longint;
a,b,c:string;
f:text;
BEGIN
assign(f,`PS.IN`);
reset(f);
readln(f,n);
close(f);
assign(f,`PS.OUT`);
rewrite(f);
c:=``;dem:=0; k:=0;
while dem k:=k+1;i:=k;b:=``;
repeat
l:=i mod 16;
case l of
0: a:=`0`;
1: a:=`1`;
2: a:=`2`;
3: a:=`3`;
4: a:=`4`;
5: a:=`5`;
6: a:=`6`;
7: a:=`7`;
8: a:=`8`;
9: a:=`9`;
10: a:=`A`;
11: a:=`B`;
12: a:=`C`;
13: a:=`D`;
14: a:=`E`;
15: a:=`F`;
end;
b:=a+b;
i:=i div 16;
until i=0;
for j:=1 to length(b) do
begin
dem:=dem+1;
if dem=n then c:=c+b[j];
end;
end;
writeln(f,c);
close(f);
END.
var dem,i,j,l,k,n:longint;
a,b,c:string;
f:text;
BEGIN
assign(f,`PS.IN`);
reset(f);
readln(f,n);
close(f);
assign(f,`PS.OUT`);
rewrite(f);
c:=``;dem:=0; k:=0;
while dem
repeat
l:=i mod 16;
case l of
0: a:=`0`;
1: a:=`1`;
2: a:=`2`;
3: a:=`3`;
4: a:=`4`;
5: a:=`5`;
6: a:=`6`;
7: a:=`7`;
8: a:=`8`;
9: a:=`9`;
10: a:=`A`;
11: a:=`B`;
12: a:=`C`;
13: a:=`D`;
14: a:=`E`;
15: a:=`F`;
end;
b:=a+b;
i:=i div 16;
until i=0;
for j:=1 to length(b) do
begin
dem:=dem+1;
if dem=n then c:=c+b[j];
end;
end;
writeln(f,c);
close(f);
END.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Phạm Anh Linh Liên
Dung lượng: 25,50KB|
Lượt tài: 0
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)