Điểm Cao Điểm Cao,Đây là acc phụ ko lo: Viết CT tính tổng các chữ số của một số tự nhiên (Ko giới hạn NNLT)

0 bình luận về “Điểm Cao Điểm Cao,Đây là acc phụ ko lo: Viết CT tính tổng các chữ số của một số tự nhiên (Ko giới hạn NNLT)”

1. uses crt;
   var d:text; s:string; tong,i,a,e:longint;
   begin
   clrscr;
      write(‘Nhap 1 so tu nhien: ‘);readln(s);
      for i:=1 to length(s) do
         begin
            val(s[i],a,e);
            tong:=tong+a;
         end;
      writeln(‘Tong cac chu so cua so do: ‘,tong);
   readln
   end.

   //////////////////////////

   Một số text cho bạn tham khảo:

   

   Bình luận

2. program meomeo119980;
   uses crt;
   var n :integer; S:longint; r :byte;
   begin
           clrscr;
           write(‘Nhap so n: ‘);readln(n);
           S:=0;
           Repeat
                   r:=n mod 10;
                   S:=S+r;
                   n:=n div 10;
           Until n=0;
           writeln(S);
           readln;
   end.

   Vote đi cheater :33

   Bình luận