Nhập số bất kỳ có 3 chữ số rồi tính tổng các chữ số của số đó.

0 bình luận về “Nhập số bất kỳ có 3 chữ số rồi tính tổng các chữ số của số đó.”

1. program tinhtongcs;

   uses crt;

   var t,n:integer;

   begin

   clrscr;

   t:=0;

   write(‘Nhap so can tinh: ‘);    readln(n);

   while n<>0 do

    begin

     t:=t+n mod 10;

     n:=n div 10;

    end;

   write(‘Tong cac chu so la: ‘,t);

   readln

   end.

   Bình luận

2. uses crt;

   var a:integer;

         tong:byte;

   BEGIN

   clrscr;

   write(‘Nhap 1 so co 3 chu so: ‘);

   readln(a);

   tong:=a mod 10;

   a:=a div 10;

   tong:=tong+a mod 10;

   a:=a div 10;

   tong:=tong+a mod 10;

   writeln(‘Tong cac chu so do la: ‘,tong);

   readln;

   END.

   Bình luận