viết chương trình tính trung bình cộng của 10 số tự nhiên đầu tiên em cần gấp ạ, em cảm ơn
2 câu trả lời
uses crt;
var a,b,c,d,e,g,h,i,k,l: Integer;
Tbc: real;
begin
clrscr;
write('Nhap 10 so tu nhien: '); readln(a,b,c,d,e,g,h,i,k,l);
tbc:= (a+b+c+d+e+g+h+i+k+l)/10;
If (a >= 0) and (b>=0) and (c >=0) and (d >=0) and (d>=0) and (e>=0) and (g>=0) and (h>=0) and (i>=0) and (k>=0) and (l>=0)
then writeln('Trung binh cong cua muoi so do la ',tbc:1:2);
readln;
end.
uses crt;
var i, s : integer; tb : real;
begin
clrscr;
s := 0;
for i := 1 to 10 do s := s + i;
tb := s / 10;
write('Trung binh cong 10 so dau tien : ', tb : 2 : 3);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
