Question

Tính tổng S = 1.2 + 2.3+.....+99.100

Answer 1

Program i: integer;

s: longint;

Begin

s:=0;

for i:=1 to 99 do s:=s + i*(i+1);

write('S=',s);

readln

end.

Answer 2

uses crt;

var i,s:longint;

begin

clrscr;

s:=0;

for i:=1 to 99 do 

  s:=s+i*(i+1);

writeln('S=',s);

readln;

end.