Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program HOC24;
var s: string;
x: char;
d: byte;
begin
write('Nhap xau: '); readln(s);
write('Nhap ki tu: '); readln(x);
d:=0;
for i:=1 to length(s) do if s[i]=x then d:=d+1;
if d=0 then write('Ki tu do khong xuat hien trong xau') else write('Ki tu do xuat hien trong xau');
readln
end.
Bài 1:
uses crt;
var S:String;
vt:integer;
begin
clrscr;
Write(‘Nhap 1 xau:’); Readln(S);
While pos(‘nang’,s)>0 do
Begin
Vt:= pos(‘nang’,s);
Delete(s,vt,4);
Insert(‘mua’,s ,vt);
End;
Writeln(‘Xau sau khi thay the ’,s);
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(st,' la xau doi xung')
else writeln(st,' khong la xau doi xung');
readln;
end.
program bai1;
uses crt;
var i:integer;
s,s1:string;
begin
clrscr;
write('nhap S:');readln(s);
while pos('C',s)<>0 do
begin
insert('LOP11A',s,pos('C',s));
delete(s,pos('C',s),1);
end;
writeln('xau sau khi bien doi la: ',s);
writeln('do dai cua xau tren la: ',length(s));
write('nhap s1:');readln(s1);
if s1[1]=s[1] then writeln('ki tu dau cua hai xau trung nhau')
else writeln('ki tu dau cua hai xau khong trung nhau');
readln;
end.
uses crt;
var st:string;
i,d,dem:integer;
ch:char;
begin
clrscr;
write('Nhap xau:'); readln(st);
write('Nhap ki tu:'); readln(ch);
d:=length(st);
dem:=0;
while pos(ch,st)>0 do
begin
inc(dem);
delete(st,pos(ch,st),1);
end;
writeln(dem);
readln;
end.
s = input("Nhập xâu S: ")
k = input("Nhập kí tự k: ")
count = 0
for c in s:
if c == k:
count += 1
print("Số lần xuất hiện của kí tự k trong xâu S là:", count)
Program HOC24;
var i,l,k: byte;
s: string;
begin
write('Nhap xau: '); readln(s);
k:=0; l:=0;
for i:=1 to length(s) do
begin
if s[i] in ['A'..'z'] then k:=k+1;
if s[i] in ['0'..'9'] then l:=l+1;
end;
if l>k then write('So ki tu chu cai nhieu hon ki tu chu so');
if l<k then write('So ki tu chu so nhieu hon ki tu chu cai');
if l=k then write('So ki tu chu so bang so ki tu chu cai');
readln
end.
Thanks broooo
uses crt;
var st:string;
t:char;
d,i,dem:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
write('nhap ki tu:'); readln(t);
dem:=0;
for i:=1 to d do
if st[i]=t then inc(dem);
writeln('Trong xau co ',dem,' ki tu ',t);
readln;
end.