K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

20 tháng 2 2022

Viết thân thôi hen

Var n,i,s:integer;

Read(n);

s:=0;

For i:=1 to n do

 If i mod 2 <>0 then s:=s+i else s:=s-i;

Write(s);

end.

20 tháng 2 2022

mong mn giúp vs ạ
đang gấp