
Nguyên văn bởi
dothanhydhth
Cám ơn nhe anh quanltv
Bài là đầy đủ cho bạn nhé.
Mã:
Program thanhydhth_11_02;
Var f1,f2: text;
a,b: array[1..10] of byte;
n,vitri,luythua: word;
m,i,j,dem: byte;
check: boolean;
BEGIN
writeln('=================================');
{Lay so n tu file}
assign(f1,'C:\DL.INP');
reset(f1);
readln(f1,n);
close(f1);
{Tach so n thanh mang A co 5 phan tu}
for i:=5 downto 1 do
begin
a[i]:=n mod 10;
n:= n div 10;
end;
{Tao mang B chua cac phan tu khac nhau cua A}
m:=1; b[1]:=a[1];
for i:=2 to 5 do
begin
check:= true;
for j:=1 to m do
if a[i]=b[j] then begin check:= false; break; end;
if check then begin m:=m+1; b[m]:=a[i]; end;
end;
{Dem so luong cua B}
dem:=m;
writeln('So cac phan tu khac nhau cua A = ',dem);
readln;
{Giam n di 111111 hay giam moi phan tu cua A di 1 don vi}
for i:=1 to 5 do
a[i]:=a[i]-1;
{Doi he co 5 sang he thap phan}
luythua:=1; vitri:=0;
for i:=5 downto 1 do
begin
vitri:= vitri + a[i]*luythua;
luythua:= luythua*5;
end;
vitri:= vitri+1;
writeln('Vi tri cua so N = ',vitri);
readln;
{Dua ket qua ra file}
assign(f2,'C:\KQ.OUT');
rewrite(f2);
writeln(f2,dem);
writeln(f2,vitri);
close(f2);
writeln('Viec ghi du lieu ra file da hoan tat.');
readln;
END.