Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Program BTT;
Uses crt;
Var i,n,F: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
F:=0;
For i:=1 to n do
Begin
If i mod 2 = 1 then F:=F-i;
If i mod 2 = 0 then F:=F+i;
End;
Write(F);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin