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

TN

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

PD
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ự
TL
Xem chi tiết
SS
Xem chi tiết
YN
Xem chi tiết
MD
Xem chi tiết
LH
Xem chi tiết
TH
Xem chi tiết
TH
Xem chi tiết
LN
Xem chi tiết
CA
Xem chi tiết