Giúp mình bài pascal kiểu xâu này với......?

[thththththth]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào 1 xâu:
a) Cho biết có bao nhiêu kí tự "A" trong xâu??
b) Cho biết có bao nhiêu kí tự "B" trong xâu??
c) Xâu có vô số khoảng cách giữa các kí tự.... Làm cho xâu cuối chỉ có 1 khoảng trắng giữa các kí tự?VD: giup minh voi....-> giup minh voi
d) Đảo xâu lại..? Vd: giup minh voi -> voi giup minh..?

Ai giúp minh với...

 

[qthang1998]

program dd;
uses crt;
var
xau:string;
ba,bb,i,j,bd:integer;
begin
write('nhap xau:');readln(xau);
for i:=1 to length(xau) do
if (xau='A') then ba:=ba+1 else
if (xau='B') then bb:=bb+1;
while (xau[1]<>' ') do
if (xau[1]=' ') then delete(xau,1,1);
while (xau[length(xau)]<>' ') do
if (xau[length(xau)=' ') then delete(xau,length(xau),1);
while (j<>length(xau)) do
begin
j:=j+1;
if (xau[j]=' ') and (xau[j+1]=' ') then delete(xau,j,1);
end;
writeln('Trong xau co ',ba,' ki tu A');
writeln('Trong xau co ',bb,' ki tu B');
writeln('Xau sau khi chinh sua la:',xau);
readln
end.

 

[p_trk]

giup minh voi -> voi giup minh..?
không có qui luật mình k thể giúp bạn )
theo mình xâu kết quả phải là " voi minh giup "

 

[duy266ankhe]

câu d
begin
writeln('nhap xau:');
readln(s);
for i:= length(s) downto 1 do write(s);
readln;
end.

 

[mythampretty]

sai roi ban oi neu lam nhu vay thi do ko phu hop vs yeu cau cua ban j do dua ra @-)