Viết phương trình đường thẳng \(\left(\Delta\right)\) vuông góc với đường thẳng \(\left(d\right):x+y+6=0\) và \(\left(\Delta\right)\) cắt đường tròn \(\left(C\right):\left(x+2\right)^2+\left(y-1\right)^2=25\) tại hai điểm M và N sao cho \(S_{\Delta IMN}=\dfrac{25}{2}\) ( biết \(I\) là tâm đường tròn )

   Cho đường tròn \(\left(C\right):\left(x+1\right)^2+\left(y-2\right)^2=25\) và điểm \(A\left(3;0\right)\). Viết phương trình đường thẳng \(\left(\Delta\right)\) qua \(A\) và cắt đường thẳng \(\left(C\right)\) theo dây cung \(MN\) sao cho:

a) \(MN\) lớn nhất

b) \(MN\) nhỏ nhất

Cho luồng khí CO dđi qua ống sứ đựng \(m\) gam Fe₂O₃ ở nhiệt độ cao, sau một thời gian, thu được 6,72 gam hỗn hợp X gồm X gồm 4 chất rắn khác nhau. Hòa tan hoàn toàn X vào dung dịch HNO₃ dư, thu được 0,4958 lít (đkc) khí Y duy nhất có tỉ khối so với H₂ bằng 15. Xác định giá trị của \(m\)

program TimMaxMinCuaMang;

var

      mang: array of integer;

      n, i, max, min: integer;

begin

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

      readln(n);

      setlength(mang, n);

      writeln('Nhap cac phan tu cua mang:');

      for i := 0 to n-1 do

      begin

            readln(mang[i]);

      end;

      max := mang[0];

      min := mang[0];

      for i := 1 to n-1 do

      begin

            if mang[i] > max then

                  max := mang[i];

            if mang[i] < min then

                  min := mang[i];

      end;

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

      writeln('Phan tu nho nhat la: ', min);

      readln;

end.

program NhapMang;

var

      mang: array of integer;

      n, i: integer;

begin

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

      readln(n);

      setlength(mang, n);

      writeln('Nhap cac phan tu cua mang:');

      for i := 0 to n-1 do

      begin

            readln(mang[i]);

      end;

      writeln('Mang vua nhap la:');

      for i := 0 to n-1 do

      begin

      write(mang[i], ' ');

      end;

      readln;

end.

Câu 2: Viết chương trình nhập một danh sách các số nguyên từ bàn phím

a) Tính và in ra màn hình tổng các số trong danh sách đó

b) Tính và in ra màn hình số lượng các số chẵn và chia hết cho 3 có trong danh sách

c) Tính và in ra màn hình danh sách các số lẻ và chia hết cho 7 có trong danh sách

# Chương trình python

lst = list(map(int, input("Nhập danh sách các số nguyên (cách nhau bởi dấu cách): ").split()))

# Tính tổng các số trong danh sách

tong = sum(lst)

print("Tổng các số trong danh sách:", tong)

# Tính số lượng các số chẵn và chia hết cho 3 trong danh sách

so_chan_chia_3 = 0

for num in lst:

      if num % 2 == 0 and num % 3 == 0:

            so_chan_chia_3 += 1

print("Số lượng các số chẵn và chia hết cho 3 trong danh sách:", so_chan_chia_3)

# Tìm và in ra danh sách các số lẻ và chia hết cho 7 trong danh sách

danh_sach_le_chia_7 = [ ]

for num in lst:

      if num % 2 == 1 and num % 7 == 0:

            danh_sach_le_chia_7.append(num)

print("Danh sách các số lẻ và chia hết cho 7 trong danh sách:", danh_sach_le_chia_7)

Câu 1:  Viết chương trình nhập từ bàn phím số nguyên K ( K khác 0 ). Kiểm tra số K là chẵn hay lẻ. In kết quả ra màn hình

# Chương trình python

print("Nhập số nguyên K (khác 0): ")

K = int(input())

if K % 2 == 0:

      print(K, " là số chẵn.")

else:

      print(K, " là số lẻ.")

program Le_Nho_Hon_Hoac_Bang_n;

uses crt;

var

       n, i: integer;

begin

       clrscr;

       write('Nhap vao mot so nguyen duong n: ');

       readln(n);

       while n <= 0 do

       begin

              writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');

              readln(n);

       end;

       clrscr;

       writeln('Cac so le nho hon hoac bang ', n, ' la:');

       i := 1;

       while i <= n do

       begin

              if i mod 2 <> 0 then

                     writeln(i);

              i := i + 1;

       end;

       readln;

end.