Cho số N là nguyên dương gồm nhiều chữ số đếm xem số N có bao nhiêu chữ số và tính tống các số đó.( giúp em vs ạ em đang cần gấp ạ )
Cho số N là nguyên dương gồm nhiều chữ số đếm xem số N có bao nhiêu chữ số và tính tống các số đó.( giúp em vs ạ em đang cần gấp ạ )
By Delilah
program tongcs;
uses crt;
var n:int64;
t,d:integer;
begin
clrscr;
write(‘Nhap so: ‘); readln(n);
t:=0; d:=0;
while n>0 do
begin
inc(d);
t:=t+n mod 10;
n:=n div 10;
end;
write(‘Co ‘,d,’ chu so va tong cac chu so la: ‘,t);
readln
end.
uses crt;
var n,i,t,k:longint;s:string;
begin
clrscr;
readln(n);
str(n,s);
writeln(length(s));
for i:=1 to length(s) do
begin
val(s[i],k);
t:=t+k;
end;
writeln(t);
readln;
end.
5 sao nha bạn:3