Program HOC24;
var s,s1: string;
i: byte;
begin
write('Nhap xau S='); readln(s);
writeln('Xau S= ',s);
write('Xau S1= ');
for i:=length(s)-3 to length(s) do write(s[i]);
readln
end.
viết chương trình nhập 1 xâu S.Tạo xâu S1 gồm 4 phần tử đầu tiên của xâu S.Xuất S,S1 ra màn hình.
Viết chương trình nhập vào một xâu ký tự S từ bàn phím. Xuất xâu đã nhập. Tạo xâu đảo ngược P từ xâu đã nhập. Xuất xâu P ra màn hình
viết chương trình nhập 1 xâu S từ bàn phím. Thay "g" có trong xâu thành "h". Xuất xâu S ra màn hình.
Viết chương trình nhập vào một xâu S có độ dài không quá 125 ký tự từ bàn phím. Xuất xâu đã nhập. Thực hiện xóa hết các dấu cách có trong xâu S. Xuất xâu S đã xóa các dấu cách ra màn hình
1.Viết chương trình nhập vào 1 xâu (s1) và in ra màn hình xâu đã nhập. + nhập vào xâu thứ 2 và in ra màn hình xâu dài hơn( nếu bằng nhau thì in ra xâu nhập sau) +kiểm tra kí tự đầu tiên trong xâu S1 có trùng với kí tự cuối cùng của xâu S2 khong? +in ra màn hình xâu đảo ngược của xâu S1 +in ra xâu S1 khi đã loại bỏ kí tự trắng ( nếu có) +in ra xâu chỉ có kí tự là chữ cái xuất hiện trong xâu S2( không phân biệt chữ hoa, thường) +đếm xem có bao nhiêu chữ số trong xâu S2. Ét o ét mọi người ơi
Viết chương trình nhập từ bàn phím xâu kí tự S ( tối đa 100 ký tự ). Hãy tạo và xuất ra màn hình xâu S tổng là chữ in hoa. Ví dụ S='tran van kiet' xuất ra S='TRAN VAN KIẾT.
Viết chương trình nhập vào một xâu S có độ dài không quá 100 ký tự từ bàn phím. Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S. Thông báo kết quả ra màn hình. Xuất xâu đã nhập
Viết chương trình nhập vào hai xâu A, B từ bàn phím - Đếm các khoảng trắng có trong xâu dài nhất xuất ra kết quả ra màn hình -Ghép xâu ngắn vào xâu dài hơn tại vị trí cuối của xâu dài xuất ra kết quả vừa ghép ra màn hình
