Nhập chuỗi gồm cả chữ và số. Xuất ra màn hình các số riêng và các chữ riêng. Chuyển xâu thành tất cả chữ Hoa, Loại bỏ dấu cách thừa có trong xâu.
viết chương trình nhập từ bàn phím một xâu chuỗi bất kì. loại bỏ hết dấu cách có trong xâu. sau đó chuyển chữ hoa cho cả xâu và in ra màn hình xâu chỉ có chữ cái
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do if (s[i]<>#32) and (s[i] in 'A'..'z') then
begin
upcase(s[i]); write(s[i]);
end;
readln
end.
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
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
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 chuyển hoá xâu vừa nhập thành chữ thường và in ra màn hình.
program ChuyenXauSangChuThuong;
var
str: string;
i: integer;
begin
write('Nhap mot xau ky tu: ');
readln(str);
for i := 1 to Length(str) do
str[i] := LowerCase(str[i]);
writeln('Xau ky tu chuyen thanh chu thuong la: ', str);
end.
Nhập vào 1 xâu bất kì , đưa ra màn hình xâu gồm tất cả các kí tự không phải chữ số
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
viết chương trình nhập một xâu từ bàn phím đưa ra màn hình xâu đó sau khi đã chuyển tất cả các kí tự đầu của mỗi từ thành chữ cái in hoa
1.Cho 1 xâu kí tự tính xem trong số đó có bao nhiêu loại kí tự khác nhau (không phân biệt in hoa hay in thường)
2.Viết chương trình nhập 1 mảng n số nguyên. Đếm số phần tử nhỏ hơn 0, đếm số phần tử lớn hơn 0
3.Nhập xâu gồm tất cả chữ và số xuất ra màn hình các số riêng và chữa riêng. Hãy đếm số lần xuất hiện của mỗi chữ mỗi số
"giải giúp e vs 19h 22/7 e nộp r"