viết chương trình tính tổng của n số tự nhiên đầu tiê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 n số tự nhiên đầu tiên. với n là số nguyên được nhập từ bàn phím”

1. uses crt;

   var ,i,t: integer;

   BEGIN

   clrscr;

    t:=0;

    Write(‘Nhap vao : ‘); readln(n);

    For i:=1 to n do

    t:=t+i;

    Writeln(‘Tong cac so tu nhien dau tien la : ‘,t);

   readln;

   END.

   

   Bình luận

2. program phuongt;
   uses crt;
     var n, s, i: integer;
   begin
           clrscr;
           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