Question

[Đồng Hoàng Mai Linh]

1, nhập vào 1 xâu tạo xâu mới giống xâu vừa nhập

2, nhập vào 1 xâu đếm số lần xuất hiện của kí tự A trong xâu vừa nhập

3, nhập S, hiển thị xâu S với chữ cái Hoa

4, nhập 1 xâu thay thế kí tự A thành B

Answer 1

[Nguyễn Lê Phước Thịnh]

Bài 1:

uses crt;
var st,st1:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
st1:='';
d:=length(st);
for i:=1 to d do
st1:=st1+st[i];
for i:=1 to d do
write(st1[i]);
readln;
end.

Bài 2:

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 vua nhap la: ',dem);
readln;
end.

Bài 3:

uses crt;
var s:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
for i:=1 to d do
write(s[i]);
readln;
end.

Bài 4:

uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]='A' then st[i]:='B';
writeln('Xau vua chuyen doi la: ');
for i:=1 to d do
write(st[i]);
readln;
end.

Answer 2

[Minh Lệ]

3.

Program HOC24;

var s: string;

begin

write('Nhap xau S='); readln(s);

s:=upcase(s);

write(s);

readln

end.

4.

Program HOC24;

var s: string;

begin

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

while pos('A',s)<>0 do

begin

insert('B',s,pos('A',s));

delete(s,pos('A',s),1);

end;

write(s);

readln

end.