C. Các bước thuật toán được lặp lại nhiều lần 

danh hiệu j vậy????

danh hiệu từ cấp 1 đén cấp cuối cùng

program TinhTBC;

uses crt;

var

      N, i: integer;

      Tong, TBC : real;

      A: array[1..100] of real;

begin

      write('Nhap so phan tu mang N = ');

      readln(N);

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

      for i:=1 to N do

      begin

            write('A[', i, '] = ');

            readln(A[i]);

      end;

      Tong := 0;

      for i:=1 to N do

            Tong := Tong + A[i];

      TBC := Tong / N;

      writeln('Tong cac phan tu: ', Tong:5:2);

      writeln('Trung binh cong: ', TBC:5:2);

      readln;

end.

( 1 + 1/2 ) * ( 1 + 1/3 ) * ... * ( 1 + 1/2022 )

= 3/2 * 4/3 * ... * 2023/2022

= 2023/2

C1;
a. Số lần lặp của vòng lặp for i:= -5 to 15 là: 21 (15 - (-5) + 1)

b. Số lần lặp của vòng lặp for i:= 9 to 28 là: 20 (28 - 9 + 1)

C2:
a. Số lần lặp của vòng lặp for i:= 0 to 25 là: 26 (25 - 0 + 1)

b. Số lần lặp của vòng lặp for i:= -7 to 12 là: 20 (12 - (-7) + 1)

Câu 1:

a) Số lần lặp:

15 - (-5) + 1 = 21 lần

b) Số lần lặp:

28 - 9 + 1 = 20 lần

Câu 2:

a) Số lần lặp:

25 - 0 + 1 = 26 lần

b) Số lần lặp:

12 - (-7) + 1 = 20 lần

program TinhTong;
uses crt;
var
  N, i, j, tich: integer;
  S: real;
begin
  clrscr;
  write('Nhap so nguyen N: ');
  readln(N);
  
  S := 0;
  tich := 1;
  
  for i := 1 to N do
  begin
    tich := tich * i;
    S := S + tich;
  end;
  
  writeln('Tong S = ', S:0:2);
  readln;
end.

tôi chạy nó ra thế này bạn ơi

count_even = 0
count_odd = 0

while True:
    num = int(input("Nhap so nguyen: ")) //0 de kthuc
    if num == 0:
        break
    
    if num % 2 == 0:
        count_even += 1
    else:
        count_odd += 1

print("Số lẻ:", count_odd)
print("Số chẵn:", count_even)