từ 5 chữ số 1, 2, 3, 4, 5 ta lập ra tất cả các con số có đúng 5 chữ số.Các con số này được xếp theo thứ tự từ nhỏ đến lớn, con số nhỏ nhất là 11111 được đánh mã số 1; số kế tiếp là 11112 được đánh mã số 2; số kế tiếp 11113 được đánh mã số 3; tiếp tục cho đến hết các con số.
Yêu cầu:
Cho trước một số n có đúng 5 chữ số lấy từ các chữ số 1, 2, 3, 4, 5. Tìm mã số của con số n.
program Taylor;
uses crt;
var n,a,b,c,d,e,dem,t:longint;
begin
clrscr;
write(‘n=’);readln(n);
for a:=1 to 9 do
for b:=1 to 9 do
for c:=1 to 9 do
for d:=1 to 9 do
for e:=1 to 9 do
begin
inc(dem);
if a*10000+b*1000+c*100+d*10+e=n then t:=dem;
end;
writeln(t);
readln
end.