program DemKiTuTrongXau;
uses crt;
var
s: string;
i, count: integer;
begin
clrscr;
write('Nhap vao mot xau: ');
readln(s);
count := 0;
for i := 1 to length(s) do
begin
if s[i] <> ' ' then
count := count + 1;
end;
writeln('So luong ki tu trong xau la: ', count);
readln;
end.
Viết chương trình nhập vào 1 xâu, hãy ĐẾM số kí tự số trong xâu. (Pascal )
VD: Nhập s: 123yuo@hg5
In ra:4
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
1. Lập chương trình nhập vào một xâu kí tự phàm phim, Tiếp tục nhập vào một ký tự bất kỳ từ bàn phím. Đếm xem trong xâu trên có bao nhiêu ký tự trùng với kỷ tự vừa nhập.
2. Lập chương trình nhập vào một danh sách học sinh n phần tư, mỗi học sinh có các thông tin stt, họ tên, điểm toán, điểm tin, điểm TB (=(Điểm toán +Điểm Tin )/2). In danh sách 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 chuyển hoá xâu vừa nhập thành chữ thường và in ra màn hình.
Viết chương trình nhập vào một xâu kí tự từ bàn phím.Tìm và in ra một từ có độ dài lớn nhất trong xâu ...............Em đang cần gấp ạ.
viết chương trình nhâp vào hai xâu,in ra xâu tổng của hai xâu đó,đếm và in ra số kí tự của xâu tổng.
vViết chương trình nhập vào hai xâu s1,s2 không quá 255 kí tự.Thực hiện xoá các kí tự không phải là kí tự chữ số trong hai xâu.Sau đó,tính tổng hai xâu đó.
cho xâu kí tự có dộ lớn 105 kí tự bao gồm chứ cái tiếng anh , chứ số và dấu cách viết chương trình đếm số từ có trong xâu s từ là dãy tất cả các chữ cái liên tục độ dài tối đa 1 từ 20 kí tự
