Bài4: viết chương trình nhập vào 1 xâu S không quá 100 kí tự
A. In ra màn hình xâu đảo ngược của S
B. In S sau khi xoá bỏ 5 kí tự đầu của S
C. Thấy thế toàn bộ kí tự N thành g
D. Đưa ra số lượng các kí tự là chữ cái không phân biệt hoa thường trong s.
uses crt;
var s:string;
i,tong:byte;
BEGIN
clrscr;
write(‘Nhap xau S:’); readln(s);
//In ra man hinh xau dao cua xau S
for i:=length(s) downto 1 do
write(s[i]);
writeln;
//In S sau khi xoa bo 5 ki tu dau
for i:=1 to 5 do delete(s,1,1);
writeln(s);
//Thay the toan bo ki tu N thanh g
for i:=1 to length(s) do
if s[i]=’N’ then s[i]:=’g’;
//Dua ra so luong cac ki tu la chu cai
tong:=0;
for i:=1 to length(s) do
if (s[i] in [‘A’..’Z’]) or (s[i] in [‘a’..’z’]) then inc(tong);
write(‘So luong cac chu cai co trong xau S la:’,tong);
readln
END.
uses crt;
var s:string;
i,tong:byte;
begin
clrscr;
write(‘Nhap xau S:’); readln(s);
a. //In ra màn hình xâu đảo ngược của S\\
for i:=length(s) downto 1 do
write(s[i]);
writeln;
b.//In S sau khi xoá bỏ 5 kí tự đầu của S\\
for i:=1 to 5 do delete(s,1,1);
writeln(s);
c. //Thấy thế toàn bộ kí tự N thành g\\
for i:=1 to length(s) do
if s[i]=’N’ then s[i]:=’g’;
d.// Đưa ra số lượng các kí tự là chữ cái không phân biệt hoa thường trong s\\
tong:=0;
for i:=1 to length(s) do
if (s[i] in [‘A’..’Z’]) or (s[i] in [‘a’..’z’]) then inc(tong);
write(‘So luong cac chu cai co trong xau S la:’,tong);
readln
end.