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.
s = input("Nhập xâu s: ")
x = input("Nhập xâu x: ")
count = 0
for i in range(len(s) - len(x) + 1):
if s[i:i+len(x)] == x:
count += 1
if count == 0:
print("Không xuất hiện")
else:
print("Số lần xuất hiện của x trong s là:", count)
Câu 1:
Ngôn ngữ máy là ngôn ngữ duy nhất để viết chương trình mà máy tính trực tiếp hiểu và thực hiện được.
program tach_ho_ten;
uses crt;
var
s, ho_dem, ten: string;
i, vt: integer;
begin
write('Nhap xau s: ');
readln(s);
vt := 0;
for i := length(s) downto 1 do
begin
if s[i] = ' ' then
begin
vt := i;
break;
end;
end;
ho_dem := copy(s, 1, vt-1);
ten := copy(s, vt+1, length(s)-vt);
writeln('Ho dem: ', ho_dem);
writeln('Ten : ', ten);
readln;
end.
Program HOC24;
var s: string;
i,x: byte;
begin
readln(s);
//-----------Câu a
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,1);
writeln(s);
//-------------Câu b
s[1]:=upcase(s[1]);
for i:=1 to length(s) do
if s[i]=#32 upcase(s[i+1]);
writeln(s);
//--------------Câu c
for i:=1 to length(s) do
if s[i]=#32 then x:=i;
for i:=x+1 to length(s) do
write(s[i]);
//---------------------------
readln
end.