Question

cho số tự nhiên N(1 N<10^6). Tính tổng sau : S= 1-2+3-4+5-6...+N

viết chương trình ra giúp vs

Answer 1

uses crt;

var i,n:integer;

s:longint;

begin

  clrscr;

  write('nhap n:');readln(n);

  s:=0;

  for i:=1 to n do

  if i mod 2=1 then s:=s+i

  else s:=s-i;

  writeln('s= ',s);

  readln;

end.