program TimSoDoiXung;

var

     f_in, f_out: text;

     n, num, tmp, rem: integer;

begin

     // mở file đầu vào

     assign(f_in, 'sdx.inp');

     reset(f_in);

     // mở file đầu ra

     assign(f_out, 'sdx.out');

     rewrite(f_out);

     // đọc n từ file đầu vào

     readln(f_in, n);

     // tìm các số đối xứng

     for num := 1 to n do

     begin

          tmp := num;

          rem := 0;

          while tmp <> 0 do

          begin

               rem := rem * 10 + tmp mod 10;

               tmp := tmp div 10;

          end;

          if num = rem then

               writeln(f_out, num);

     end;

     // đóng file đầu vào và đầu ra

     close(f_in);

     close(f_out);

end.

C1: A

c2: C

Em tham khảo nhé.

Đây là chương trình tìm tổng A:

```
var n, A: real;
  
write('Nhap vao so n: ');
readln(n);
  
A := 0;
  
for var i := 1 to Round(n) do
begin
  A := A + 1/i;
end;
  
writeln('Tong A la: ', A:0:2);
```

Giải thích chương trình:

1. Sử dụng lệnh `readln` để nhập giá trị `n` từ bàn phím.
2. Khởi tạo biến `A` là 0.
3. Sử dụng vòng lặp `for` để tính tổng từ 1 đến `n`.
4. Cộng giá trị của 1/i vào biến `A`.
5. In ra giá trị của `A` với độ chính xác 2 chữ số thập phân bằng lệnh `writeln`.

bước 1: vào insert

bước 2: bấm vào table

bước 3: nhấp vào insert table

bước 4: viết số vào number of columns để tạo cột, viết số vào number of rows để tạo hàng 

bước 5: nhấn vào OK

chuoi = input("Nhập vào một chuỗi ký tự: ")

kieu_du_lieu_cu = type(chuoi)

kieu_du_lieu_moi = str

# tạo một danh sách chứa tất cả các ký tự xuất hiện trong chuỗi

ky_tu_can_loai_bo = ['a', 'e', 'i', 'o', 'u']

# loại bỏ các ký tự nằm trong danh sách khỏi chuỗi

chuoi = ''.join([c for c in chuoi if c.lower() not in ky_tu_can_loai_bo])

print("Chuỗi sau khi xóa các ký tự: ", chuoi)

n = int(input("Nhập n: "))

a = [ ]

for i in range(n):

     a.append(int(input(f"Nhập phần tử a[{i}]: ")))

k = int(input("Nhập k: "))

count_greater = 0

count_divisible_by_three = 0

for num in a:

     if num > k:

          count_greater += 1

     if sum(int(digit) for digit in str(num)) % 3 == 0:

          count_divisible_by_three += 1

print(f"Số lớn hơn {k}: {count_greater} số")

print(f"Số có tổng các chữ số chia hết cho 3: {count_divisible_by_three} số")