viết chương trình tính tổng của các số nguyên trong phạm vi từ 1 đến n, với 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 trong phạm vi từ 1 đến n, với n được nhập từ bàn phím”

1. program Tong;

   uses crt;

   var n,i,T: integer;

   Begin

            clrscr;

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

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

            write(‘Tong cac so tu a den ‘,n,’ = ‘,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: ‘,s); 
           readln;
   end.

   Bình luận