Question

Xoá sạch màn hình kết quả, sử dụng vòng lặp For .. do hoặc While ..do viết chương trình tính tổng sau:

S=1.2 + 2.3+ 3.4 + ...+ n.(n+1) (n nhập từ bàn phím)

Answer 1

For..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

s:=0;

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

write('S=',S);

readln

end.

Answer 2

while..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap N: '); readln(n);

i:=0; s:=0;

while i<n do

begin

i:=i+1;

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

end;

write('S=',S);

readln

end.