Question

Lập chương trình nhạp vào một số tự nhiên n.Cho biết n có bao nhiêu chữ số, tổng các chữ số của n.

Answer 1

Program HOC24;

var i,n,d,b,t: integer;

begin

write('Nhap so tu nhien N: '); readln(n);

d:=0; t:=0;

while n<>0 do

begin

b:=n mod 10;

d:=d+1;

t:=t+b;

n:=n div 10;

end;

writeln(n,' co ',d,' chu so');

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

readln

end.

Answer 2

*Cách khác

uses crt;

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

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

writeln('So chu so cua ',n,' la: ',d);

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.