Xóa chữ số trong chuỗi

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

b.      Nhập vào số nguyên k (0

Answer 1

a.

program bai1;

var         n,tong,i:integer;

begin

              write('moi ban nhap n:');readln(n);

              tong:=0;

              for i:=1 to n do

              begin

                     while i>0 do

                     begin

                          tong:=tong+(i mod 10);    i:=i div 20;

                     end;

              end;

               write(tong);

               readln;

end.

b. Viết lại đề câu b bn ơi