Question

Cho số tự nhiên N ( 1 N < 100 ). Tính tổng sau. S =1 −2 +3 −4 +5 −6.... +N

Answer 1

uses crt;

var t,i,n:integer;

begin

clrscr;

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

if (n>1) and (n<100) then

begin

t:=0;

for i:=1 to n do

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

else t:=t-i;

writeln('tong la: ',t);

end

else writeln('vui long nhap lai');

readln;

end.

Answer 2

1 < N < 100 hả bạn?