LT

Viết chương trình sử dụng câu lệnh lặp while..do tính S=1/1*2+1/2*2+1/3*2+...+1/n*2

ML
28 tháng 3 2023 lúc 20:27

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap N: '); readln(n);

s:=0; i:=1;

while i<=n do

begin

s:=s+1/(i*2);

i:=i+1;

end;

write('S= ',s:6:2);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
TN
Xem chi tiết
LN
Xem chi tiết
KH
Xem chi tiết
TP
Xem chi tiết
NN
Xem chi tiết
KH
Xem chi tiết
LK
Xem chi tiết
LM
Xem chi tiết
LA
Xem chi tiết