Question

1.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.

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 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)

3.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”.

Em cần giúp gấp ạ.

Answer 1

Bài 1:

uses crt;

var st:string;

d,i,dem: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('So ki tu a trong xau ',st,' la: ',dem);

readln;

end.

Bài 2:

uses crt;

var st:string;

d,i,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.