Question

Viết chương trình tính tổng của n số nguyên đầu tiên. Số n và các số hạng của tổng được nhập từ bàn phím.

Answer 1

program tong;

var          S,i,n:integer;

begin

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

                S:=0;

                for i:=1 to n do S:=S+i;

               write(S);

              readln;

end.