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ó

0 bình luận về “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ó”

1. 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.

   Bình luận

2. 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.

   Bình luận