cho biết số vòng lặp và giá trị của biến s sau khi thực hiện đoạn chương trình: a) S:=0; 

For i:=2 to 8 do S :=S+i 

b) S:=0; n:=1;

For i:=1 to 6 do

    Begin

          S:=S+n;

           n:=n+i;

   end;

c) S:=2;

For i:=1 to 10 do

     If(i mod 2)=0 then S:=S+i;

d) S:=0; i:= 1,5;

While S<7 do S:=S+i;

e) S:=0; i:=1;

While i<9 do

             Begin

                   S:=S+i;

                    i:=i+2;

                End;

f)   S:=2;  i:=1;

While i<= 10 do

Begin

If (i mod 2) then S:=S+i;

       i:=i+1;

End;

Em hiểu gì về đoạn chương trình sau

a) Var a array [1......10] of real;

b) Begin

Writeln ('Nhap day so thuc');

For i:=1 to 10 do

Begin

Write ('a[',i,']=');

Readln (a[i]);

End.

c) Writeln ('In day cac phan tu:');

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

d)For i:=10 downto 1 do write (a[i]:5:2);writeln;

e) S:=0;

For i:=1 to 10 do 'S:=S+a[i];

Write ('S='5:8:2);writeln;

Write ('S=',S/10:

cho biết số lần lặp và giá trị của các biến sau khi thực hiện câu lệnh sau ?

s:=0;k:=1; s:=0;k:=1;

For i:=1 to 5 do For i:=1 to 5 do

s:=s+1; Begin

k:=k+s; s:=s+1=i;

k:=k+s;

End;

Bài 1 : Cho S và i là biến nguyên. Khi chạy chương trình :

S:=0;

for i:=1 to 5 do S :=S +i;

writeln(S);

Kết quả in ra màn hình S là bao nhiêu ?

Bài 2: Tìm giá trị của S trong đoạn chương trình dưới đây:

S:=2;

For i:=1 to 5 do S:=S + i;

Bài 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây:

1)X:=10; while X:=10 to X: X+5;

2) X:=10; while X = 10 do X=X+5

3) S:=0; n:=0; while S <= 10 do n:n+1 , S:= S+n;

( Giair chi tiết giúp mình với )