Viết chương trình nhập số nguyên dương n, tính tổng các chữ số và số các chữ số của nó
Viết chương trình nhập số nguyên dương n, tính tổng các chữ số và số các chữ số của nó
By Ximena
By Ximena
Viết chương trình nhập số nguyên dương n, tính tổng các chữ số và số các chữ số của nó
uses crt;
var n,n1,res:longint;
s:string;
begin
clrscr;
readln(n);
n1:=n;
str(n,s);
while n1<>0 do
begin
inc(res,n1 mod 10);
n1:=n1 div 10;
end;
write(res,’ ‘,length(s));
readln;
end.
Program NhatNgu;
Uses crt;
Var n,d,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=0; d:=0;
While n<>0 do
Begin
inc(d);
s:=s+n mod 10;
n:=n div 10;
End;
Write(s,’ ‘,d);
Readln
End.