program DiemTrungBinh;
var
  diem: real;
  i, n: integer;
begin
  write('Nhap so luong ban trong lop: ');
  readln(n);
  
  for i := 1 to n do
  begin
    write('Nhap diem trung binh cua ban ', i, ': ');
    readln(diem);
    if diem >= 5 then
      writeln('Diem trung binh cua ban ', i, ' la: ', diem:0:2);
  end;
end.

program TongSn;
var
  N, S: integer;
begin
  S := 0;
  N := 1;
  while S <= 1000 do
  begin
    S := S + N;
    N := N + 1;
  end;
  writeln('So tu nhien can cong de tong Sn vuot qua 1000 la: ', N-1);
  writeln('Tong S', N-1, ' la: ', S);
end.

S = 0 + 2*1 + 2*2 + 2*3 = 2 + 4 + 6 = 12 -> A

Đoạn chương trình trên tính tổng của 3 số chẵn liên tiếp nhau, bắt đầu từ 2.

Thứ tự tính toán như sau:

Vậy kết quả in lên màn hình là A. 12.

Program Tinhtong;
Uses Crt;
var i,S: integer;
begin
Clrscr;
S:=0;
For i :=1 to 7 do S:=S+i;
Writeln('Tong cac so tu 1 den 7 la ',S);
End.

Bạn bổ sung thêm đề nha, thiếu đề mất rồi

Có 5 vòng lặp (5-1+1=5) mỗi lần lặp giá trị X giảm xuống 1 đơn vị => X = 5 - 1- 1-1-1-1= 0

⇒ Đáp án:       A. Trên màn hình xuất hiện một chữ a

Chọn D.

Vì không có câu lệnh để thay đổi giá trị a, mà a vẫn bằng 10 => vòng lặp vô hạn