Viết chương trình tính các tổng S = 1+1/2+1/4+....+1/2N Với N được nhập từ bàn phím
2 câu trả lời
uses crt;
var i,n: longint;
s: real;
begin
clrscr;
write ('nhap n: '); readln (n);
s:=1;
for i:=1 to n do
if n mod 2=0 then
s:=s+1/i;
writeln ('tong la: ',s:1:3);
readln;
end.
program oken;
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('Nhap n: '); readln(N);
s:=0;
for i:=1 to n do
if i mod 2=0 then
s:=s+1/n;
write(s:0:3);
readln;
end.
Câu hỏi trong lớp
Xem thêm
