Tính tổng (cần gấp!!!!!!!!!!!!!!!!!)

[phuoc_phuoc5]

Cho một số n. Hãy tính tổng:
Vd: n = 12
* Viết liền các số nguyên từ 1 đến n trong hệ thập phân để tạo ra một dãy các chữ số:
Dãy số: 123456789101112
Tổng:=51;
Vd: n = 5
Dãy số:
12345
Tổng:= 15;

Giúp em in ra dãy số nguyên và tính tổng ạ!
Em chỉ biết chuyển dãy số từ 1 đến n thành xâu kí tự nhưng không biết cách cộng các kí tự số trong xâu đó.
Cho em code cách cộng tổng các kí tự số trong xâu với.#-o:bawling::book: /[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG] [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG])

[myphamuc93]

Program DienDanTinHoc;
Uses Crt;
Var x,y : String;
     t, n, i : Integer;
BEGIN
   Clrscr;
   Write('Nhap n: '); Readln(n);
   t := 0;
   For i := 1 To n Do
   Begin
      t := t + i;
      Str(i,y); //Biến i thành 1 chuỗi kí tự và gán nó và biến y
      x := x + y; //Sau đó cộng dồn vào biến x
   End;
   Writeln(x); Write(t);
   Readln
END.

Chúc bạn học tốt!

[quangminh01]

Cám ơn anh "HappySoftGroup" nhiều nhiều nha!:a::a::a::a::a:

[Duyvn]

À anh hiểu nhầm đề bài rồi ạ!
Vd tổng các số nguyên từ 1 đến 5 là
1+2+3+4+5=15
Tổng các số nguyên từ một đến 12 là
1+2+3+4+5+6+7+8+9+1+0+1+1+1+2
Anh giúp e sửa lại code phần đó nha.:lick::a:[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]):book:[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[alodienlanh]

Hok ai giúp em hả?[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG][IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG][IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG][IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG][IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG][IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG][IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG][IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG][IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[parkhill]

Program DienDanTinHoc; 
Uses Crt; 
Var x, y : String;     
     t, tam, n, i, err : Integer; 
BEGIN    
   Clrscr;    
   Write('Nhap n: '); Readln(n);    
   t := 0;    
   
   For i := 1 To n Do    
   Begin       
      Str(i,y); //Biến i thành 1 chuỗi kí tự và gán nó vào biến y       
      x := x + y; //Sau đó cộng dồn vào biến x    
   End;
   
   For i := 1 To length(x) Do
   Begin
      Val(x[i],tam,err);
      t := t + tam;
   End;

   Writeln(x); Write(t);    
   Readln 
END.

[BRASOL]

Bài này em chỉ chạy đúng được 2 test :
1 test 1 chữ số và 1 test 2 chữ số bởi ASCII chỉ có 255 kí tự thôi. Nhập số 5, 12, 60,... thì đúng còn nhập số 123, 2468, 13579, 12481632,... thì chỉ ra kết quả là 1027.
Bài này yêu cầu đến 10 test mà có số rất lớn như: 98765432100123456789 thì tất nhiên là không được. Vậy anh xem có cách nào chuyển được từ chuỗi kí tự sang mảng được không cho dễ cộng. Cho em code luôn nha!
Giúp em với![IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]):lick::book::a::lick:

[vudinh]

Mình có một ý tưởng như thế này.
Bạn cho chạy số, mỗi bước chạy đó, bạn sẽ kiểm tra trong số đó có bao nhiêu chữ số 1, 2, ..., 9. Bạn cứ cộng dồn vào cho đến cuối cùng rồi chỉ việc nhân vào là ra kết quả.

[matngoc2015]

Giới hạn N bao nhiêu bạn?
Bạn cho đầy đủ các giới hạn giá trị mới có thể xác định được thuật toán [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
Tạm thời:
Tổng = (1+N)*N/2
Dãy số: in từ từ hoặc dùng ansistring mà lưu. Ngon lành [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[secutechvn]

Anh viết code giùm em được không? Em vẫn chưa hiểu rõ lắm.