viết chương trình tính và in ra màn hình tổng sau (với n là số lẻ được nhập từ bàn phím):
T= 1+1/3+1/5+...+1/n
var
T:real;
n,i:integer;
begin
T:=0;
i:=i+1;
Writeln('nhap n =');
readln(n);
if (n mod 2)=1 then
begin
for 1:=1 to n do begin
if (i mod 2)=1 then T:=T+1/i ;
writeln('tong la',T);
readln;
end;
end;
end.
var T,i,n: integer;
begin
readln(n);
while n mod 2=0 do begin
write('nhap lai n'); readln(n);
end;
T:=0;
for i:=1 to n do
if i mod 2 <>0 then T:=T+1/i;
Writeln(T);
End.
var
T:real;
n,i:integer;
begin
T:=0;
i:=i+1;
Writeln('nhap n =');
readln(n);
if (n mod 2)=1 then
begin
for 1:=1 to n do begin
if (i mod 2)=1 then T:=T+1/i ;
writeln('tong la',T);
readln;
end;
end;
end.