Lập trình nhập từ bàn phím số nguyên n (0

24/07/2021 Bởi Jade

0 bình luận về “Lập trình nhập từ bàn phím số nguyên n (0<n<=10^9) .hãy xác định và đưa ra màn hình số chữ số 0 có nghĩa của n”

1. uses crt;
   var d,n:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      repeat
         if n mod 10=0 then inc(d);
         n:=n div 10;
      until n=0;
      writeln(d);
   readln
   end.

   Bình luận

2. program sochuso;

   uses crt;

   var n:longint;

         d:byte;

   begin

   clrscr;

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

   d:=0;

   while n>0 do

    begin

     if n mod 10=0 then d:=d+1;

     n:=n div 10;

    end;

   write(‘So chu so 0 co nghia la: ‘,d);

   readln

   end.

   Bình luận