Câu hỏi của ACE OneHit - Tin học lớp 8

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.