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 ạ )

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

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

   Bình luận

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

   Bình luận