Nhập vào số n nguyên dương,tính tổng các chữ số của số n và tính tích các chữ số của số n.Kết quả ghi ra hai dòng khác nhau

0 bình luận về “Nhập vào số n nguyên dương,tính tổng các chữ số của số n và tính tích các chữ số của số n.Kết quả ghi ra hai dòng khác nhau”

1. var n,s,t,n2,dv:longint;

   begin

   write(‘nhap n nguyen duong: ‘);read(n);

   n2:=n;   t:=1;

   while n<>0 do

   begin

   dv:=n mod 10;

   s:=s+dv;

   t:=t*dv;

   n:=n div 10;

   end;

   writeln(‘tong cac chu so cua ‘,n2,’ la: ‘,s);

   write(‘tich cac chu so cua ‘,n2,’ la: ‘,t);

   readln;

   end.

   Bình luận

2. program tong_tich;

   uses crt;

   var n,so,tong,tich:longint;

   begin

         clrscr;

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

         tong:=0;  tich:=1;

         while n<>0 do

               begin

                     so:=n mod 10;

                     tong:=tong+so;

                     tich:=tich*so;

                     n:=n div 10;

               end;

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

         writeln(‘Tich cac chu so la: ‘,tich);

         readln;

   end.

   Bình luận