Question

Viết chương trình tính S=1.2.3+2.3.4+3.4.5+...+98.99.100

Answer 1

program tinh_tong ;

var i: integer; S: longint;

begin

S:= 0;

for i:= 1 to 98 do S:= S + i*(i+1)*(i+2);

writeln (' tong S la: ', S);

readln;

end.

Answer 2

program tinh tong ;

Var S,t: integer;

Begin

S:= 0;

For i:= 1 to 100 S:= S + i;

writeln (' tong cac so tu nhien tu 1 den 100');

Readln

End.