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 ạ
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.
