viết cương trình tính tổng số n số tự nhiên đầu tiên liên tiếp với n được nhập từ bàn phím

2 câu trả lời

program tong;

uses crt;

var i,n,s:integer;

begin

readln(n); s:=0;

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

writeln(s);

readln;

end.

Chúc bạn học tốt :)

program kaito;

uses crt;

var s, n, i: integer;

begin

   clrscr;

   write('nhap so n: '); readln(n);

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

   writeln('Tong cua ',n,' so tu nhien dau tien lien tiep la: ',s);

   readln

end.

CHÚC BẠN HỌC TỐT!!!