Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
JoJo

Viết Chương Trình nhập 2 số n bất kỳ sau đó in ra tổng các chữ số của n

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:10

Sửa đề: Nhập 1 số n bất kỳ 

uses crt;

var st:string;

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

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(t);

readln;

end.


Các câu hỏi tương tự
Tuân Trần
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Tuân Trần
Xem chi tiết
Thư Uyên
Xem chi tiết
khanh123ok
Xem chi tiết
Bảo Trâm
Xem chi tiết
Bảo Trâm
Xem chi tiết
Nguyễn Hiếu
Xem chi tiết