Cho đoạn chương trinh sau: a:=0; T:=0; Write('Nhap so N: '); Readln(N); While a>N do Begin a:=a+1; Write('Nhap so thu',a,'='); Readln(b) T:=T+b; End; Write('Ket qua can tim la:',T); a) Hãy tìm và sửa lỗi cho đoạn chương trình trên. b) Cho biết đoạn chương trình trên thực hiện công việc gì?

2 câu trả lời

 a:=0; T:=0;

Write('Nhap so N: '); Readln(N);

While a>N do 

Điều kiện sai ,sửa While a<= N do

Begin

            a:=a+1;

            Write('Nhap so thu',a,'='); Readln(b); thiếu dấu chấm phẩy 

T:=T+b;

End;

Write('Ket qua can tim la:',T);

đoạn chương trình trên thực hiện công việc nhập $N+1$ số và cộng chúng với nhau

a) điều kiện while do sai.

    readln(b) thiếu ;

sửa:

a:=0; T:=0;

Write('Nhap so N: '); Readln(N);

While a<=N do 

Begin

a:=a+1;

Write('Nhap so thu',a,'='); Readln(b);

T:=T+b;

End;

Write('Ket qua can tim la:',T);

b) Đoạn chương trình trên tính tổng dãy số nhập từ bàn phím.