bài 1A

bài 2 lặp lại 6 lần

bài 4:

s=0+1*2=2

s=2+2*2=6

s=6+3*2=12

s=12+4*2=20

vậy giá trị cuối s=20, có 4 vòng lặp

Bài 5:

so=1+1=2

so=2+1=3

so=3+1=4

so=4+1=5

so=5+1=6

so=6+1=7

so=7+1=8

so=8+1=9

so=9+1=10(điều kiện sai chương trình kết thúc)

vậy giá trị cuối so=10

bài 7:

program ct;

uses crt;

var i,n,S:integer;          

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

begin

clrscr;

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

      for i:=1 to n do

begin

    write('nhap mang A[',i,']:=');readln(A[i]);

end;

    S:=0

        for i:=1 to n do S:=S+A[i];

    writeln('tong la:',S);

readln

end.

bài 8:

program ct;

uses crt;

var s,i:integer;

begin

clrscr;

    s:=0;

      for i:=1 to 100 do s:=s+i;

    writeln('tong la:',s);

readln

end.

1)

A. Ko hợp lệ vì giá trị đầu và giá trị cuối phải là số nguyên

B. Hợp lệ

C. Ko hợp lệ vì khi gán giá trị cho biến đếm thiếu dấu :

D. Ko hợp lệ vì giá trị đầu và giá trị cuối ko được để trong cặp dấu ngoặc đơn ' '

2)

Câu lệnh lặp lại 6 lần

3)

Câu lệnh ghép được thực hiện 10 lần

4)

- Lần lặp thứ 1: i=1; s=2

- Lần lặp thứ 2: i=2; s=6

- Lần lặp thứ 3: i=3; s=12

- Lần lặp thứ 4: i=4; s=20

⇒ Kết quả in ra màn hình là 20

5)

Kết quả thu được sau chương trình là 10

- Lần 1: So= 1+1= 2

- Lần 2: So= 2+1= 3

- Lần 3: So= 3+1= 4

- Lần 4: So= 4+1= 5

- Lần 5: So= 5+1= 6

- Lần 6: So= 6+1= 7

- Lần 7: So= 7+1= 8

- Lần 8: So= 8+1= 9

- Lần 9: So=9+1=10

6)

- Lần lặp thứ 1: i=1; s=1

- Lần lặp thứ 2: i=2; s=3

- Lần lặp thứ 3: i=3; s=6

- Lần lặp thứ 4: i=4; s=10

⇒ Số vòng lặp thực hiện là 4

⇒ Kết quả in ra màn hình là 10

7)

program ct;

uses crt;

var A:array[1..1000] of integer;

      i,n:integer;

      S:longint;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

       writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0

   for i:=1 to n do

     S:=S+A[i];

   writeln('Tong la: ',S);

readln;

end.

8)

program ct;

uses crt;

var i,S:integer;

begin clrscr;

     S:=0;

   for i:=1 to 100 do

     S:=S+i;

   writeln('Tong 100 so tu nhien dau tien la: ',S);

readln;

end.

Học tốt!