Viết chương trình tính tổng của các số nguyên từ 1 đến n, với n là số nguyên được nhập từ bàn phím

0 bình luận về “Viết chương trình tính tổng của các số nguyên từ 1 đến n, với n là số nguyên được nhập từ bàn phím”

1. program tinh_tong_n;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

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

          t:=0;

          for i:=1 to n do

                 t:=t+i;

          write(‘Tong cac so nguyen tu 1 den ‘,n,’ la: ‘,t);

          readln;

   end.

   Bình luận

2. var n, i: word;

         S: longint;

    

   begin

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

          S:=0;

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

          write(‘Tong: ‘, s);

          readln

   end.

    

    

   Bình luận