Tin học đếm số nguyên dương N có bao nhiêu chữ số,viết chương trình pascal 13/07/2021 By Katherine đếm số nguyên dương N có bao nhiêu chữ số,viết chương trình pascal
uses crt;var n,dem:Integer;beginclrscr;write(‘nhap n ‘);ReadLn(n);repeatn:=n div 10;dem:=dem+1;until n=0;write(‘co ‘,dem,‘ so’);readln end. Trả lời
uses crt; var n,d: integer; begin clrscr; write (‘nhap n: ‘); readln (n); while n>0 do begin n:=n div 10; inc(d); end; writeln (‘n co ‘,d,’ chu so’); readln; end. Trả lời
uses crt;
var n,dem:Integer;
begin
clrscr;
write(‘nhap n ‘);ReadLn(n);
repeat
n:=n div 10;
dem:=dem+1;
until n=0;
write(‘co ‘,dem,‘ so’);
readln
end.
uses crt;
var n,d: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
while n>0 do
begin
n:=n div 10;
inc(d);
end;
writeln (‘n co ‘,d,’ chu so’);
readln;
end.