Bài 5. Từ bài toán đến chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Long Võ

1/Viết chương trình tính tổng các số lẽ từ 1 đến n bằng câu lệnh while...do sao giá trị của tổng vừa đủ lớn hơn 500. Sau đó xuất ra giá trị của n và giá trị của tổng.

2/ Viết chương trình pascal để tính trung bình của n số thực được nhập từ bàn phím sau đó xuất ra giá trị trung bình của n số đã nhập.

Giúp em với ạ

Minh Lệ
7 tháng 4 2019 lúc 17:50

Lời giải :

Câu 1 :

program hotrotinhoc ;

var i,n,T : integer ;

begin

T:=0; n:=0;

while T < 500 do

begin

n:=n+1;

if n mod 2 = 1 then T:=T+n;

end;

write('Tong la:',T);

readln

end.

Câu 2:

program hotrotinhoc ;

var n: array[1..10000] of real ;

i,n : integer ;

TB : real ;

begin

write('Nhap do dai cua day so:'); readln(n);

write('nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

write('n[',i,']='); readln(n[i]);

end;

TB:=0;

for i:= 0 to n do

TB:=TB+n[i] ;

write('Gia tri trung binh la :',TB);

readln

end.


Các câu hỏi tương tự
Alice
Xem chi tiết
My Nguyen
Xem chi tiết
iwegfwf
Xem chi tiết
Ngáo Ngơ Alice
Xem chi tiết
Mai Thị Mỹ Ngọc
Xem chi tiết
Lê Trần Bội Bội
Xem chi tiết
Lê Trần Bội Bội
Xem chi tiết
baopham
Xem chi tiết
Thee Bao
Xem chi tiết