Giúp bài phương trình Pascal Trung bình cộng

[nhat2701]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài tập: Nhập vào nhiều số n. Tính trung bình cộng của các số đó đến khi tổng lớn hơn 100 thì dừng lại.

 

[megamanxza]

Uses crt;
var n, tong, dem: integer;
tbc: real;
begin
clrscr;
repeat
write ('Nhap so n: '); readln (n);
tong:=tong+n;
inc(dem);
tbc:=tong/dem;
until tbc>=100;
write ('Trung binh cong day so la ',tbc:2:2);
readln
end.
Nhớ nhấn Thanks và "Đúng" cho mình nhá!