Viết chương trình nhập một xâu S, in ra tất cả các chữ cái và số lượng chữ cái trong xâu, in ra tất cả các chữ số và số lượng chữ số trong xâu.
Hãy viết chương trình nhập vào xâu s chứa họ tên của một người. In ra màn hình số lượng kí tự a có trong xâu. Và in ra xâu đó khi đã chuyển tất cả kí tự trong xâu thành chữ HOA
Hãy viết chương trình nhập vào xâu s chứa họ tên của một người. In ra màn hình số lượng kí tự a có trong xâu. Và in ra xâu đó khi đã chuyển tất cả kí tự trong xâu thành chữ HOA
Bài tập 2:Viết chương trình nhập một xâu từ bàn phím. Đếm số kí tự là chữ số chữ cái trong xâu vừa nhập và in ra màn hình. Xóa các chữ số kh xâu vừa nhập
2:
uses crt;
var st:string;
d,i,dem1,dem2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem1:=0;
dem2:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1);
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);
end;
writeln('So ki tu la chu so la: ',dem1);
writeln('So ki tu la chu cai la: ',dem2);
for i:=1 to d do
if st[i] in ['0'..'9'] then delete(st,i,1);
writeln('Xau sau khi xoa cac chu so la: ',st);
readln;
end.
Viết chương trình nhập một xâu từ bàn phím (xâu nhập vào có kí tự chứ cái in, chữ cái thường và kí tự số) Yêu cầu:lọc và in các chữ cái thường có trong xâu
Program HOC24;
var s: string;
begin
write('Nhap xau: '); readln(s);
write('Xau sau khi loc: ');
for i:=1 to length(s) do
if s[i] in ['A'..'z'] then write(s[i]);
readln
end.
Viết chương trình nhập vào từ bàn phím một xâu kí tự. In ra màn hình xâu gồm tất cả các kí tự chữ số lấy từ xâu đã nhập
Var s,st:string;
i:integer;
Begin
Write('Nhap xau ');readln(s);
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then st:=st+s[i];
Write('Cac ki tu so co trong day la ',st);
Readln
End.
Viết chương trình đếm số lượng mỗi chữ cái có trong xâu s . Giả sử xâu s đc nhập là các kí tự in hoa
Em hãy viết chương trình nhập vào một xâu ký tự bất kỳ từ bàn phím (tối đa 250 kí tự) bao gồm cả chữ hoa, chữ thường và số. Hãy đếm và in ra màn hình:
a, Số các chữ số trong xâu đã cho
b, Số các kí tự in hoa trong xâu đã cho
c, Chuyển hóa toàn bộ xâu thành ký tự hoa và in ra màn hình
Em hãy viết chương trình nhập vào một xâu ký tự bất kỳ từ bàn phím (tối đa 250 kí tự) bao gồm cả chữ hoa, chữ thường và số. Hãy đếm và in ra màn hình:
a, Số các chữ số trong xâu đã cho
b, Số các kí tự in hoa trong xâu đã cho
c, Chuyển hóa toàn bộ xâu thành ký tự hoa và in ra màn hình
giúp em vs ạ em cần gấp
Viết chương trình: Nhập vào một xâu kí tự. Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa và chữ thường) có trong xâu.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);
writeln(dem);
readln;
end.