Lập trình nhập từ bàn phím số nguyên n (0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Lập trình nhập từ bàn phím số nguyên n (0
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”
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.
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.