Viết chương trình nhập vào một xâu và cho biết xâu đó gó bao nhiêu kí tự là chữ số?
2 câu trả lời
program bt;
uses crt;
var a: string;
i, x, so: byte;
begin
clrscr;
write('Nhap xau a:'); readln(a);
x:= length(a);
for i := 1 to x do if a[i] in ['0'..'9'] then so := so + 1;
writeln('Co', so ,'ki tu la so trong xau');
readln
end.
Xin câu trả lời hay nhất ạ :3
program _dem_chu_so;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to n do
if s[i] in ['0'..'9'] then d:=d+1;
write('Co ',d,' ki tu la chu so');
readln;
end.
