viết chương trình tính tổng n số tự nhiên đầu tiên (ko tính số 0)

0 bình luận về “viết chương trình tính tổng n số tự nhiên đầu tiên (ko tính số 0)”

1. uses crt;

   var i,n,s: word;

   begin

   clrscr;

   write (‘nhap n: ‘);  readln (n);

   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

2. program tinhtong;

   uses crt;

   var n,i,tong: integer;

   begin

   readln (n);

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

   writeln (tong);

   readln;

   end.

   Bình luận