nguyễn thịnh

Đọc vào một dãy số cho đến khi tổng của chúng lớn hơn 1997.

a.tính tbc các số đã đọc,đưa kết quả ra màn hình

 

Nguyễn Lê Phước Thịnh
18 tháng 5 2021 lúc 12:11

uses crt;

var n,t:integer;

begin

clrscr;

t:=0;

dem:=0;

repeat

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

t:=t+n;

dem:=dem+1;

until t>1997;

writeln('Trung binh cong cua cac so da nhap la: ',t/dem:4:2);

readln;

end.


Các câu hỏi tương tự
Nguyễn Hồng Anh
Xem chi tiết
Trọng Nhân
Xem chi tiết
dacdada2134
Xem chi tiết
Nguyễn Thùy Linh
Xem chi tiết
hà phương
Xem chi tiết
Tali
Xem chi tiết
Nguyễn Phương Mai
Xem chi tiết
Hải Hà
Xem chi tiết
Trang
Xem chi tiết