Lập trình nhập từ bàn phím số nguyên n (0
1 câu trả lời
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.
