0 bình luận về “Lập trình nhập từ bàn phím số nguyên n (0<n<= 32767) .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 n,d:longint;
    begin

            clrscr;
            write(‘Nhap n: ‘); readln(n);
            while n>0 do
                    begin
                            if (n mod 10=0) then inc(d);
                            n:=n div 10 ;
                    end;
            writeln;
            write( n ,’co ‘,d,’ chu so 0 co nghia’);
            readln ;
    end.

    Bình luận

Viết một bình luận