Nhập n bất kỳ sau đó in ra tổng các chữ số của n

0 bình luận về “Nhập n bất kỳ sau đó in ra tổng các chữ số của n”

1. var 

    i,n, d : integer;

    s : string;

   begin

    readln(n);

     str(n,s); d:=0;

    for i:=1 to length(s) do d:=d+s[i];

    writeln(d);

    readln;

   end.

   Trả lời

2. program window

   uses crt;

   var n,m:longint;tong:byte;

    BEGIN

   clrscr;

     write(‘Nhap n: ‘);readln(n);

     tong:=0;m:=n;

     while m>0 do

       begin

         tong:=tong+m mod 10;

         m:=m div 10;

   end;

   writeln(‘Tong cac chu so cua ‘,n,’ la: ‘,tong);

   readln

   END

   Chúc bạn học tốt

   Trả lời