VCT nhập vào số n,tính các tích của các chữ số đó Vd:124 in ra 8

0 bình luận về “VCT nhập vào số n,tính các tích của các chữ số đó Vd:124 in ra 8”

1. program tich_chuso;

   uses crt;

   var n,t:longint;

         so:byte;

   begin

          clrscr;

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

          tich:=1;

          while n>0 do

                 begin

                        so:=n mod 10;

                        tich:=tich*so;

                        n:=n div 10;

                 end;

          if  n=0 then write(0) else write(tich);

          readln;

   end.

   Bình luận

2. var n,k:integer;

   begin

    write(‘so can tinh tich:’);readln(n);

    k:=1;

   while n<>0 do begin

    k:=k*(n mod 10);

    n:=n div 10;

   write(k);

   readln;

   end.

   Bình luận