Question

Khi viết liên tiếp các số tự nhiên từ 1 đến n ta được một xâu S biểu diễn một số tự nhiên. Ví dụ: với n=15 ta được S=’123456789101112131415’ Yêu cầu: a. Tính tổng các chữ số của dãy S được tạo ra bởi n theo quy cách trên, với n là số tự nhiên được nhập từ bàn phím (0<n<120) b. Nhập vào số nguyên k (0<k<độ dài xâu S), xóa khỏi xâu S đúng k chữ số để số thu được là số nhỏ nhất có thể.

Answer 1

var n,k,i,j,d,tam:longint;
s,t:string;
a:array[1..7260] of byte;
begin
write('Nhap n,k:');readln(n,k);
for i:=1 to n do
begin
str(i,t);
for j:=1 to length(t) do
begin
inc(d);
val(t[j],a[d]);
end;
end;
for i:=1 to d-1 do
for j:=i+1 to d do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to d-k do
begin
str(a[i],t);
s:=s+t;
end;
write(s);
readln;
end.

Answer 2

vi so nho nhat nen minh lam nhu vay thoi