viết chương trình đếm số ký tự chữ số trong 1 xâu kí tự được nhập vào từ bàn phím
2 câu trả lời
uses crt;
var s:string;
a,b,c,i:longint;
begin
clrscr;
readln(s);
for i:-=1 to length(s) do
begin
if s[i] in ['A'..'Z'] then a:=a+1;
if s[i] in ['a'..'z'] then b:=b+1;
if s[i]>'1' and S[i]<'9' then c:=c+1;
end;
write('co',a,'so ky tu hoa');
write('co ',b,'ky tu thuong');
write('co ',c,'ky tu so);
readln
end.
bạn tham khảo nha
chúc bạn học tốt 5 sao CLTHN
@huyhoang07
Uses crt;
var s:string;i,j:byte;
BEGIN
clrscr;
Write('Nhap s: ');readln(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then j:=j+1;
writeln('So ky tu chu so la: ',j);
readln
END.
