cho em hỏi bài tin này tí T_T

[tht13041996]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

cho 1 số nguyên dương n(n<=10^9)
yêu cầu tính tổng các chữ số trong số n
vd:n=253 -----> tổng là 10

 

[11thanhkhoeo]

NHẬP XÂU

SAU ĐÓ CHUYỂN TỪNG KÍ TỰ VỀ SỐ BẰNG Val(st, k );

sau đó cộng k vào tổng

Thân

 

[tht13041996]

bạn có thể hướng dẫn cho mình bằng cách dùng câu lệnh For to do đc k. mình đang học về phần đó

 

[mikelhpdatke]

Readln(n);
sum:=0;

Repeat
 sum:=sum+n mod 10;
 n:=n div 10;
Until n=0;
writeln(sum);

 

[11thanhkhoeo]

Người ta nói dùng vòng for chú ạ

read(s);
for i := 1 to length(s) do 
   begin 
         ss:=s[i];
         val(ss,k);
         tong:=tong+k;
   end;

 

[tht13041996]

mấy bạn hướng dẫn mình khai báo mảng cho bài đó nha

 

[11thanhkhoeo]

S,ss:string;