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
2 câu trả lời
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.
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.
