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)

A=input("nhập xâu:")
N=A.split()
B=[]
tl= 0
for i in N:
    B.append(int(i))
    max=B[0]
    min=B[0]
print("Có",len(B),"số đã nhập")
for k in range(len(B)):
    if k%2 != 0:
        tl=tl + k
print("tổng các số lẽ là:",tl)
for e in range(len(B)):
    if B[e]>max:
        max = B[e]
        vtnn = e 
    if B[e]<=min:
        min = B[e]
        vtln = e
print("số lớn nhất là:",max,"ở vị trí:",vtnn)
print("số nhỏ nhất là:",min,"ở vị trí:",vtln)

n=0

m=[]

a=0

s=0

S= input (" Nhập dãy các số cách nhau bởi 1 dấu cách :")

A=S.Split ()

b=int(A[0])

If int (A [i])%2==1:

s=s+int(A[i])

If int (A[i])>a:

   a=int(A[i])

   n=i

If b>=int (A[i]):

    b=int(A[i])

    m.append(i)

primt (" số lượng các số đã nhập ",len(A))

primt(" tổng các số lẻ là ",s)

primt(" số lớn nhất là :",a"tại vị trí nhỏ nhất ",n+)

primt("số nhỏ nhất là :",b,"tại vị trí nhỏ nhất:"m[lent(n)-1])

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)

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

writeln('Xau vua nhap la: ',st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln('Xau moi la: ',st);

readln;

end.

Bài 3: 

uses crt;

const fi='teptong.txt'

var a,b:integer;

f1:text;

begin

clrscr;

assign(f1,fi); rewrite(f1);

readln(a,b);

writeln(a+b);

writeln(f1,a+b);

close(f1);

readln;

end.

2:

uses crt;

var st:string;

d,i,dem1,dem2:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem1:=0;

dem2:=0;

for i:=1 to d do

  begin

if st[i] in ['0'..'9'] then inc(dem1);

if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);

end;

writeln('So ki tu la chu so la: ',dem1);

writeln('So ki tu la chu cai la: ',dem2);

for i:=1 to d do 

  if st[i] in ['0'..'9'] then delete(st,i,1);

writeln('Xau sau khi xoa cac chu so la: ',st);

readln;

end. 

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

readln(st);

d:=length(st);

for i:=1 to d do 

begin  

if st[i]=' ' then writeln

else write(st[i]);

end;

readln;

end.