Câu hỏi:
Giúp em bài tập về nhà Tổng hợp lớp 11 câu hỏi như sau: 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
Trả lời 2:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạn:
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.
Trả lời 1:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạn:
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
