VIẾT LẠI CHƯƠNG TRÌNH SAU CHO ĐÚNG VÀ CHO BIẾT CHƯƠNG TRÌNH THỰC HIỆN...

Câu 1: Viết lại chương trình sau cho đúng và cho biết chương trình thực hiện công việc gì? (2đ)

Program Tinh;

(1)

Write(’trung binh cong la’, TBC);

(2)

Uses crt;

(3)

TBC:real;

(4)

Begin

(5)

S:=0; so:=1;

(6)

Begin

(7)

Read(so);

(8)

Var so, N, s: integer;

(9)

S:=s+so;

(10)

Dem:=dem+1;

(11)

While so<>0 do

(12)

TBC:=s/dem;

(13)

End.

(14)

Clrscr;

(15)

Readln;

(16)

End;

(17)