TÍnh TỔng CÁc ChỮ SỐ CỦa MỘt SỐ NguyÊn

**xcode** · 12-06-2010 00:34

Thấy mấy bạn code pascal thật là pro.

**ilovepppp** · 17-06-2010 10:23

Được gửi bởi dancuipascal

cái này là okie rồi tranh luận lằng nhằng wa"

- Mình tán đồng cách này!

**Heroboss12** · 19-06-2010 10:29

Được gửi bởi tranvanho

đây là một chuỗi mà
làm sao tính đc theo cách đó
vô duyên
với lại s phải thuộc mảng mới có s[i] chứ

Kém thế !!! Người ta làm thế là đúng rồi, chuỗi cũng vẫn co s[i] thôi. Với lại vì đây là chuỗi nên đã val rồi, sao ko tính được. Chưa học lệnh val ah`

[=========> Bổ sung bài viết <=========]

Được gửi bởi ngtrhieu0011

với những số lớn như có chừng ... 100 chữ số thỉ đành chịu thua với cách div và mod
em nghĩ là sẽ đếm lúc nhập lun cho nhanh (dùng thủ tục readkey với lần nhập phím số và enter để thoát (ord của enter là 13))
dùng mảng cũng dc nhưng lâu hơn thui

Số lớn thì nhập bằng chuỗi, bằng mảng, không có gì phải chịu thua

**khoa_vtp** · 10-12-2010 12:14

VAR s,tong, a : LONGINT;
BEGIN
a:=645;

s:=0;
WHILE a<>0 DO
BEGIN

s:= s+a MOD 10;
a:= a DIV 10;
END;

write(s); readln;
END.

bó tay thiệt ... khơi mộ lên nè ! mồ mả gì mà ác thế !

**kkkvotinhkkk** · 11-12-2010 09:16

program tinhtong;
var n,i,tong:integer;
begin
writeln('nhap n');
readln(n);
tong:=0;
for i:=1 to n do
tong:=tong+i;
writeln(tong);
readln
end.

[=========> Bổ sung bài viết <=========]

ban xem va test thu nha.
co j minh jup cho. hi hi

**cunbong24** · 01-03-2012 15:33

Ý tưởng chủ đạo để giải bài toán này bạn có biết và hiểu không? Trước hết mình cho bạn code đã (chạy ngon). Mình thêm cho bạn đáp số nữa là: đếm số lượng các chữ số thuộc số đã cho. Ví dụ: vào là 1999, thì ra có tổng các chữ số của số đã cho=28, số các chữ số của số này=4. Nếu chưa hiểu thuật toán gửi câu hỏi lần nữa mình giảng giải cho. Tuy nhiên phương châm là: hãy tự suy nghĩ, tìm tòi là chính thì vẫn tốt cho bạn hơn!!

Uses crt;
Var n,dem,tong:Longint;
Begin clrscr;
Write('Nhap so nguyen duong nhieu hon 1 chu so:');
Readln(n);
tong:=0; dem:=0;
While n>0 Do
Begin
Inc(dem);
tong:=tong+n MOD 10;
n:=n DIV 10;
End;
Writeln('Tong cac chu so:',tong);
Writeln('So cac chu so=',dem);
Readln;
End.

**cunbong24** · 01-03-2012 15:36

Ý tưởng chủ đạo để giải bài toán này bạn có biết và hiểu không? Trước hết mình cho bạn code đã (chạy ngon). Mình thêm cho bạn đáp số nữa là: đếm số lượng các chữ số thuộc số đã cho. Ví dụ: vào là 1999, thì ra có tổng các chữ số của số đã cho=28, số các chữ số của số này=4. Nếu chưa hiểu thuật toán gửi câu hỏi lần nữa mình giảng giải cho. Tuy nhiên phương châm là: hãy tự suy nghĩ, tìm tòi là chính thì vẫn tốt cho bạn hơn!!

Uses crt;
Var n,dem,tong:Longint;
Begin clrscr;
Write('Nhap so nguyen duong nhieu hon 1 chu so:');
Readln(n);
tong:=0; dem:=0;
While n>0 Do
Begin
Inc(dem);
tong:=tong+n MOD 10;
n:=n DIV 10;
End;
Writeln('Tong cac chu so:',tong);
Writeln('So cac chu so=',dem);
Readln;
End.

Link: http://www.ddth.com/showthread.php/1...#ixzz1nquKVu7i