Bài 10: Cấu trúc lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ngô Chí Thành

Lập tính tính tổng : 

 Nhập số nguyên N vào từ bàn phím . Tính tổng các chữ số của N . 

Nguyễn Lê Phước Thịnh
22 tháng 1 2021 lúc 23:08

uses crt;

var n,i,t,x,y,d:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln('Tong cac chu so cua ',n,' la: ',t);

readln;

end. 

Bùi Anh Tuấn
24 tháng 1 2021 lúc 20:28

mang tính chất test danh hiệu nhưng vẫn đúng nhá


Các câu hỏi tương tự
Quân Nguyễn
Xem chi tiết
nguyen thi be
Xem chi tiết
Nguyễn Thiên Anh
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Minh Châu
Xem chi tiết
Thương Nhi
Xem chi tiết
Nhã Nguyễn
Xem chi tiết
JohnBlue
Xem chi tiết