Nhập vào một số n nguyên dương,dùng function tính tổng và tích các chữ số của số n

0 bình luận về “Nhập vào một số n nguyên dương,dùng function tính tổng và tích các chữ số của số n”

1. program tong_Tich;

   uses crt;

   var n:longint;

   {—TONG—}

   function tong(k:longint):integer;

   begin

         tong:=0;

         while k>0 do

               begin

                     tong:=tong+(k mod 10);

                     k:=k div 10;

               end;

   end;

   {—TICH—}

   function tich(k:longint):integer;

   begin

         tich:=1;

         while k>0 do

               begin

                     tich:=tich*(k mod 10);

                     k:=k div 10;

               end;

   end;

   {—CT-chinh—}

   BEGIN

         clrscr;

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

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

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

         readln;

   end.

   Bình luận

2. uses crt;
   var n:integer;
   {Ham tong}
   function s(k:integer):longint;
   begin
         s:=0;
         while k>0 do 
               begin
                     s:=s+(k mod 10);
                     k:=k div 10;
               end;
   end;
   {Ham tich}
   function p(k:integer):longint;
   begin
         p:=1; {nếu khai báo p:=0 thì nhân ra vẫn =0}
         while k>0 do 
               begin
                     p:=p*(k mod 10);
                     k:=k div 10;
               end;
   end;
   {Chuong trinh chinh}
   begin
         clrscr;
         write(‘Nhap n: ‘); readln(n);
         writeln(‘Tong: ‘,s(n));
         write(‘Tich: ‘,p(n));
         readln;
   end.

   Bình luận