Lập trình đơn giản

Trương Võ Thanh Ngân

viết chương trình sử dụng lệnh lặp While...do để tính trung bình n số thực x1,x2,x3,...xn đc nhập từ bàn phím

Phan Tiến Đạt
30 tháng 3 2020 lúc 10:54

uses crt;
var n,i:integer;
kq,x: real;
begin
clrscr;
write('Nhap N: ');readln(n);
i:= 0; kq:= 0;
while i < n do
begin
i:= i + 1;
write('Nhap X ',i,': ');
readln(x);
kq:= kq + x;
end;
write('Trung binh ',n,' so thuc la: ',kq / n:0:2);
readln
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Tuyết Lê
Xem chi tiết
Sa sa
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Lê Xuân Hoa
Xem chi tiết
Trần Huyền
Xem chi tiết
Trần Huyền
Xem chi tiết
lio Nana
Xem chi tiết
CHU VĂN AN
Xem chi tiết