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'.")

program NhapXau;

var

     Chuoi_A, Chuoi_B : string;

     i : integer;

begin

     write('Nhap xau A: ');

     readln(Chuoi_A);

     writeln('Xau A la: ', Chuoi_A);

     Chuoi_B := '';

     for i := 1 to length(Chuoi_A) do

          Chuoi_B := Chuoi_B + Chuoi_A[i];

     writeln('Xau B la: ', Chuoi_B);

     readln;

end.

Uses crt;

var i,n,z: longint;

begin clrscr;

readln(n); 

z:=1;

while(i<n) do begin 

i:=i+1;

z:=z*i;

end;

writeln(z);

readln;

end.

program TinhGiaiThua;

var n, giaiThua: integer; 

begin
writeln('Nhap vao gia tri cua n (>0): ');
  readln(n);

if n <= 0 then
  begin
    writeln('Gia tri cua n phai lon hon 0.');
    exit; 
  end;

giaiThua := 1; 
  while n > 0 do
  begin
    giaiThua := giaiThua * n;
    n := n - 1;
  end;
  writeln('Giai thua cua n la: ', giaiThua);
   readln;
end.

var i,j,k,l:integer;

begin

for i:=1 to 3 do

for j:=1 to 9 do

for k:=1 to 18 do

for l:=1 to 36 do

if 50*i+20*j+10*k+5*l = 175 then writeln(i,' mon 50k ',j,' mon 20k ',k,' mon 10k',l,' mon 5k');

Readln;

End.

Cảm ơn bạn, làm phiền bạn xíu bạn có thể viết CT sử dụng câu lệnh While do hộ mình được không ạ , mình cảm ơn 

program NhapMang;

var

      mang: array[1..10] of integer;

      n, i, tich, max: integer;

begin

      write('Nhap so phan tu cua mang: ');

      readln(n);

      tich := 1;

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ' cua mang: ');

            readln(mang[i]);

            tich := tich * mang[i];

      end; 

      max := mang[1];

      for i := 2 to n do

            if mang[i] > max then

                  max := mang[i];

      writeln('Tich cua cac phan tu trong mang la: ', tich);

      writeln('Phan tu co gia tri lon nhat la: ', max);

      readln;

end.

program tong_so;

var

     tong, so: integer;

begin

     tong := 0;

     while tong < 20 do

     begin

          write('Nhập số nguyên: ');

          readln(so);

          tong := tong + so;

     end;

     writeln('Tổng các số đã nhập là: ', tong);

end.

Program HOC24;

var i,s: byte;

begin

s:=0;

for i:=1 to 10 do s:=s+i;

write('S = ',s);

readln

end.