Question

2. Viết chương trình khai báo một xâu, tiến hành nhập xâu, sau đó in ra màn hình có bao nhiêu chữ ‘a’ có trong xâu.

3. Viết chương trình khai báo một xâu, tiến hành nhập xâu, sau đó in ra màn hình cho biết có phải xâu đối xứng không. ( ví dụ: xâu abccba là một xâu đối xứng)

4. Viết chương trình thêm một xâu nhập từ bàn phím vào vị trí thứ 4 của xâu “BAI TAP”

Answer 1

Câu 2:

uses crt;

var st:string;

dem,i,d:integer;

begin

clrscr;

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

d:=length(st);

dem:=0;

for i:=1 to d do

if st[i]='a' then inc(dem);

writeln(dem);

readln;

end.

Câu 3:

uses crt;

var st:string;

i,d,kt:integer;

begin

clrscr;

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

d:=length(st);

kt:=0;

for i:=1 to d do

if st[i]<>st[d-i+1] then kt:=1;

if kt=0 then writeln('Day la xau doi xung')

else writeln('Day khong la xau doi xung');

readln;

end.

Câu 4:

uses crt;
var st,st1:string;
begin
clrscr;
st:='BAI TAP';
write('Nhap xau can chen:'); readln(st1);
insert(st1,st,4);
writeln('Xau moi sau khi chen la: ',st);
readln;
end.