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)