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.
chuoi_A = input("Nhập chuỗi A: ")
if chuoi_A.find("123") != -1:
print("Chuỗi A chứa chuỗi con '123'")
else:
print("Chuỗi A không chứa chuỗi con '123'")
A = input("Nhập vào chuỗi A: ")
if "123" in A:
print("Chuỗi A chứa chuỗi con '123'.")
else:
print("Chuỗi A không chứa chuỗi con '123'.")
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)
n = int(input("Nhập vào một số nguyên dương: "))
if n < 0:
print(n, "là số âm")
elif n > 0:
print(n, "là số dương")
else:
print(n, "là số 0")
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b=');c readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
kt:=0;
if sqr(a)=sqr(b)+sqr(c) then kt:=1;
if sqr(b)=sqr(a)+sqr(c) then kt:=1;
if sqr(c)=sqr(a)+sqr(b) then kt:=1;
if kt=0 then writeln('Day khong la tam giac vuong')
else begin
writeln('Day la ba canh trong mot tam giac vuong');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac vuong la: ',s:4:2);
end;
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
xau = input('Nhap chuoi: ')
so_khoang_cach = xau.count(' ')
print('So khoang cach:', so_khoang_cach)
vi_tri = []
for i in range(len(xau)):
if xau[i] == ' ':
vi_tri.append(i)
print('Vi tri khoang cach:', vi_tri)
A=input("Nhập dãy các số cách nhau bởi dấu cách: ")
S=A.split()
k = 0
n=[]
c = len(S)
m1 = min(S)
m2 = max(S)
for x in S:
n.append(float(x))
b=[]
for a in n :
if a % 2 != 0 :
b.append(float(a))
S=0
for i in b:
k=k+i
print("Số lượng các số đã nhập",c)
print("Tổng các số lẻ là", k)
print("Số nhỏ nhất là", m1)
print("Số lớn nhất là ", m2)
var s:string;
i,d:integer;
begin
write('Nhap xau s = ');readln(s);
for i:=1 to length(s) do
if (s[i] = 'A') and (s[i+1] = 'n') then d:=d+1;
write('Co ',d,' van An');
readln
end.
Var s,st:string;
i:integer;
Begin
Write('Nhap xau ');readln(s);
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then st:=st+s[i];
Write('Cac ki tu so co trong day la ',st);
Readln
End.
