y mây nguyễn
Hỏi từ APP VIETJACK
Viết chưong trình sử dụng lệnh lặp while ....do để tính trung bình n số tự nhiên
Quảng cáo
1 câu trả lời 217
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.
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.
y mây nguyễn
· 3 năm trước
Cho hỏi ạ n số tự nhiên là giống vậy luôn sao ạ
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45502
-
Hỏi từ APP VIETJACK28395
Thành viên hăng hái nhất trong tuần
-
子犬たち
555 điểm
-
phq.nah
430 điểm
-
btt
325 điểm
-
`color{Yellow }text{Sun🌞}`
225 điểm
-
$\color{#FA8072}{౨ৎ𝒽ế𝓉౨ৎ𝓉𝒽ờ𝒾 ౨ৎ𝓹𝓻𝓲𝓶𝓮シ}$
165 điểm
-
۶ৎ
150 điểm
-
MÈO_football
125 điểm
-
$\Huge\color{PowderBlue}{STALIN}$
90 điểm
-
Hưởng Nguyễn 90 điểm
-
Странныйxiaoqi_004
80 điểm
-
bi yeuu
55 điểm
-
cute
50 điểm
-
Kiuo
50 điểm
-
phq.nah
45 điểm
-
Trinh Ngọc 45 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11058
-
4 năm trước10465
-
4 năm trước9123
-
4 năm trước9313
-
4 năm trước8874
Gửi báo cáo thành công!
