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)

0 bình luận về “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. 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.

   Bình luận