Question

viết chương trình nhập vào một xâu .

a, ghi ra màn hình kí tự cuối cùng của xâu đó.

b, tìm vị trí xuất hiện đầu từ 2020 đầu tiên trong xâu .

c, sao chép thành xâu mới bắt đầu từ vị trí giữa các xâu đó đến cuối .

d, kiểm tra xem xâu có đối xứng không .

e, in xâu đó với vị trí đảo ngược .

f, in hoa xâu vừa nhập.

g, xóa khoảng trắng dư thừa trong xâu . biết những khoảng xâu đầu xâu và cuối xâu là dư thừa , trong xâu có 2 khoảng thắng liên tiếp thì thừa một khoảng trắng . h, đếm số từ của xâu biết mỗi từ cách nhau một khoảng trắng.

Answer 1

Program HOC24;

var s,st,x: string;

d: byte;

begin

write('Nhap xau : '); readln(s);

writeln('Ki tu cuoi cung cua xau la : ',s[length(s)]);

writeln('Vi tri xuat hien dau tu 2020 dau tien trong xau la : ',pos('2020',s));

if length(s) mod 2=0 then

for i:=trunc(length(s)/2)+1 to length(s) do st:=st+s[i];

if length(s) mod 2<>0 then

for i:=trunc(length(s)/2) to length(s) do st:=st+s[i];

writeln('Xau sau khi sao chep : ',st);

for i:=length(s) downto 1 do x:=x+s[i];

if x=s then writeln('Xau doi xung') else writeln('Khong phai xau doi xung');

write('Xau voi vi tri dao nguoc : ');

for i:=length(s) downto 1 do write(s[i]);

writeln;

for i:=1 to length(s) do s[i]:=upcase(s[i]);

writeln('Xau in hoa : ',s);

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);

writeln('Xau sau khi xoa dau cach thua : ', s);

for i:=1 to length(s) do

if s[i]=#32 then d:=d+1;

write('Trong xau co ',d,' tu cach nhau mot khoang trang');

readln

end.