Viết chương trình tính các tổng sau S= 1/2+1/4+...+1/(2n)
2 câu trả lời
Program tinh_tong;
Uses crt;
Var i,n: integer;
S: real;
Begin
Write ('Nhap n=');
Readln (n);
S:=0;
For i:= 1 to n do
S:= S+ 1/(2*i);
Writeln ('Tong S la:', S:7:2);
Readln
End.
Program tinh_tong;
Uses crt;
Var S,i,n: real;
Begin
Write ('Nhap n=');
Readln (n);
S:=0;
For i:= 1 to n do
S:= S+ 1/(2*i);
Writeln ('Tong S la:', S:7:2);
Readln
End.
CHÚC BẠN HỌC TỐT!
Câu hỏi trong lớp
Xem thêm
