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

[cunbong24]

Mày nhầm rồi. Mày đo như thế nào mà bảo nhanh hơn? Nhanh hơn là một ngày à?

[anhiuem00]

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.

[tinhyeubeau]

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

Hay bạn thử dùng cách này xem (vừa nghĩ ra nên chưa test):

Program Tong_chu_so;
Var s:string;
i:byte;
p:integer;{bien luu tong}
begin
write('Nhap so: ');readln(s);
for i:=1 to length(s) do p:=p+ord(s[i]);
p:=p-48*length(s);
writeln(p);
readln
end.

[tinhyeubeau]

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.

Ể thế số 250 chữ số thì ông anh tính lưu vào danh sách liên kết àh.

[tinhyeubeau]

Ý 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.

Quá longint thid sao?!!

[trieuqui]

------

đoạn sau
var s:string; i, code, va: integer;
begin
s:=1234;
forr i:=1 to length (s) do
val (s[i],va,code);
end.
hoàn toàn đúng. Bạn đã dốt thì đừng có be be.
+ s:=s[i] đây là type casting, đồ dốt ạ
+ s[i] luôn đúng, hình như bạn quá dốt, nên bỏ ước mơ lập trình đi.

nói phũ quá
ông cứ như thế ai dám nhờ nữa

[trungboysock]

function tong(x:integer):integer;
var sum:integer;
begin
    sum:=0;
    while x<>0 do
    begin
        sum:=sum + (x mod 10);
        x:=x div 10;
    end;
    tong:=sum;
end;

[hao0091998]

nên đưa ra chương trình có thời gian chạy tốt nhất.
chương trình của mình là O(length(N));
uses crt;
var S,N:longint;
begin
clrscr;
write('nhap N:'); readln(N);
while N<>0 do
begin
S:=S+N mod 10;
N:=N div 10;
end;
write('tong cac chu so= ',S);
readln;
end.