Lập trình đơn giản

Quang Anh Nguyễn

nhập vào 1 số nguyên dương n in ra thông báo

1 số đó có bao nhiêu chữ số

2 tổng các chữ số

Nguyễn Lê Phước Thịnh
7 tháng 10 2020 lúc 22:56

uses crt;

var n,i,d,t,x,y: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(n,' co ',d,' chu so');

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

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Minh Lệ
8 tháng 10 2020 lúc 14:43

Program HOC24;

var n,i,d,t: integer;

begin

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

while n<>0 do

begin

t:=t+(n mod 10);

d:=d+1;

n:=n div 10;

end;

writeln('Co ',d,' so chu so');

write('Tong cac chu so la : ',t );

readln

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Phan Đức Duy
Xem chi tiết
ngtraidat
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Hưng Quốc
Xem chi tiết
ytkc
Xem chi tiết
Huệ Hà
Xem chi tiết
Quỳnh
Xem chi tiết
đức minh
Xem chi tiết
nguyễn vũ thành công
Xem chi tiết