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)

làm sao để tìm số nhỏ nhất ở vị trí lớn nhất vậy bạn

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.

giúp em với ạ em cảm ơn nhìuu