Var a:array[1..1000] of integer;

s:longint;

i,n:integer;

Begin

s:=1;

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(a[i]);

s:=s*a[i];

End;

Write('Tich la ',s);

Readln

End.

program TinhTich;
var n, i, tich: integer;
begin
  write('Nhap vao n: ');
  readln(n);
  tich := 1;
  for i := 1 to n do
    tich := tich * i;
  writeln('tich cua ', n, ' so tu nhien dau tien la: ', tich);
  readln;
end.

Đoạn chương trình trên sẽ lặp lại việc tăng giá trị của biến "tong" lên 1 khi giá trị của "tong" đạt đến 5. Vì ban đầu "tong" được gán giá trị là 0, nên chương trình sẽ thực hiện vòng lặp 5 lần để đạt được giá trị mong muốn.

Vì vậy, sau khi chương trình được thực hiện, giá trị của "tong" sẽ là 5. Do đó, câu trả lời đúng là B. 5.

B. 5

Đề thiếu rồi, bạn bổ sung lại nhé.

Var a:array[1..1000] of real;

s:real;

i,n:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap diem thu ',i);readln(a[i]);

s:=s+a[i];

End;

s:=s/n;

Write('Diem trung binh la ',s:10:2);

Readln

End.

Var a:array[1..60] of real;

s,tbc:real;

i,n:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap diem cua ban thu ',i);readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Diem trung binh la ',s);

Readln

End.

Cho câu lệnh lặp sau : While a>=20 do a:=a-2; Em hãy cho biết điều kiện trong câu lệnh trên là gì ?

A. a>=20

B. a=20

C. a<=20

D. a<20

Var a:array[1..35] of real;

i:integer;

Begin

For i:=1 to 35 do

Begin

Write('Nhap diem thu ',i);readln(a[i]);

End;

write('Diem vua nhap la ');

For i:=1 to 35 do write(a[i]:10:2);

Writeln;

write('Cac diem duoi 5 hoac >  la ');

For i:=1 to 35 do

If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)

Readln

End.

Đây là những câu lệnh lặp không phải khai báo biến mảng bạn nha.

a/ -> Đúng nhưng đây là vòng lặp vô hạn

b/ -> Sai. Vì không có biến đếm.

Câu 1:

program Tinhtong:

var

     n, i, sum: integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     for i := 2 to n do

     begin

          if i mod 2 = 0 then

          begin

               sum := sum + i;

          end;

     end;

     writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);

     readln; 

end.

Câu 2:

program Tinhtong:

var

     n, i, sum: integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     for i := 1 to n do

     begin

          if i mod 2 = 1 then

          begin

               sum := sum + i;

          end;

     end;

     writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);

     readln;

end.

Sao tới 3 end vậy