Tính tổng các số tự nhiên đầu tiên từ 1 đến N ( N được nhập vào từ bàn phím)

1 câu trả lời

program ct;

uses crt;

var n,i,s:integer

begin

clrscr;

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

s:=0;

for i:=1 to n do 

s:=s+i;

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

readln

end.