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. Program FNG;
   Uses crt;
   Var St: String;
       i,s,so: longint;
       code: byte;
   Begin
           Clrscr;
           Write(‘Nhap so: ‘); Readln(St);
           s:=0;
           For i:=1 to length(St) do
           Begin
                   Val(St[i],so,code);
                   s:=s+so;
           End;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận

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

   Bình luận