Theo em, nội dung trình chiếu nên là dàn ý của nội dung bài thuyết trình. Tuy nhiên trong một số trường hợp như trong một phần của bài thuyết trình khó hiểu thì nên thêm nội dung để diễn giải phần đó cho người nghe có thể hiểu được trọn vẹn nội dung bài thuyết trình. 

B

N = int(input("Nhập số lượng phần tử của dãy N (>50): "))

while N <= 50:

         N = int(input("Nhập lại số lượng phần tử của dãy N (>50): "))

# Nhập vào dãy số 

danh_sach = []

for i in range(N):

         danh_sach.append(int(input("Nhập số thứ %d: " % (i+1))))

# In ra dãy số vừa nhập

print("Dãy số vừa nhập:")

for i in danh_sach:

         print(i, end=' ')

# Nhập vào số nguyên x

x = int(input("nNhập vào số nguyên x: "))

# In ra các số chia hết cho x 

print("Các số chia hết cho x là:")

for i in danh_sach:

         if i % x == 0:

                  print(i, end=' ')

Câu 1:

var i,n:integer;

begin

write('n = ');readln(n);

For i:=1 to n do

if i mod 2 = 0 then write(i:6);

readln;

end.

Để đặt lề văn bản, trên thẻ page layout, ở nhóm lệnh page setup, em sử dụng lệnh Margins

Program HOC24;

var d,i,n: integer;

a: array[1..100] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('Nhap A[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to n do d:=d+1;

write('So luong cac phan tu trong mang la: ',d);

readln

end.

* Thực chất số lượng phần tử trong mảng là N ban đầu nhập rồi, bạn kiểm tra lại xem đề thiếu không nhé

Uses crt;

var n,i,s: integer;

begin clrscr;

readln(n);

for i:=1 to n do s:=s+1/i;

writeln(s);

readln;

end.

 Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

Uses crt;

var n,i,x,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do begin

readln(x);

u:=u+x;

end;

writeln(u);

readln;

end.

program TongCacSoNguyen;

var
  N, i, soNguyen, tong: integer;

begin
  // Nhập số lượng N
  write('Nhap so luong N: ');
  readln(N);

  // Khởi tạo tổng
  tong := 0;

  // Nhập và tính tổng các số nguyên
  for i := 1 to N do
  begin
    write('Nhap so nguyen thu ', i, ': ');
    readln(soNguyen);
    tong := tong + soNguyen;
  end;

  // In ra màn hình tổng
  writeln('Tong cua cac so nguyen la: ', tong);

  readln;
end.