tính tổng các số nguyên từ 1 đến n. với n được nhập từ bàn phím

0 bình luận về “tính tổng các số nguyên từ 1 đến n. với n được nhập từ bàn phím”

1. Uses crt;
   Var i,n:integer;t:longint;
   BEGIN
   clrscr;
   write(‘Nhap n: ‘);readln(n);
   For i:=1 to n do t:=t+i;
   Writeln(‘Tong cac so tu 1 den ‘,n,’ la: ‘,t);
   Readln
   End.

   Bình luận

2. uses crt;
   var n,i,s:longint;
   begin
         clrscr;
         write(‘Nhap n: ‘); readln(n);
         for i:=1 to n do inc(s,i);
         writeln(‘Tong cac so tu 1 den ‘,n,’: ‘,s);
         readln;
   end.

   Bình luận