GIÚP MÌNH VỚI! MÌNH CẦN GẤP viết chương trình tính tổng T=1/2+1/4+1/6+...+1/2*n
2 câu trả lời
uses crt;
var n,i:longint; t:real;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
t:=t+1/(i*2);
writeln(t:0:3);
readln
end.
uses crt;
var T:real;
i,n:integer;
begin
clrscr;
T:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
T:=T+1/(2*i);
writeln('Tong la: ',T:4:2);
readln
end.
Câu hỏi trong lớp
Xem thêm