Viết chương trình nhập vào xâu bất kỳ đếm xem trong xâu có bao nhiêu ký tự số. Em cảm ơn ạ
2 câu trả lời
program nguyenduyhaibang;
var s: string; chuso,i: integer;
begin
write('Nhap xau: ');
readln(s);
chuso:=0;
for i:=1 to length(s) do
begin
if (S[i] in ['0'..'9']) then chuso:=chuso+1;
end;
write('Xau co ',chuso,' chuso');
readln;
end.
var s:string;
i,d:integer;
begin
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(d);
write('Co ',d,' ky tu chu so trong xau');
readln;
end.
