Viết chương trình tính tổng các số từ 1 đến n ( nhập từ bàn phím).

0 bình luận về “Viết chương trình tính tổng các số từ 1 đến n ( nhập từ bàn phím).”

1. programct;

   uses crt;

   var i,n:integer;

         S:longint;

   begin clrscr;

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

        S:=0;

      for i:=1 to n do

        S:=S+i;

      writeln(‘Tong la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var S,n,i : longint;

   Begin

   Clrscr ;

   Write(‘nhap n’);

   Readln(n);

   I:=1;S:=0;

   While i<=n do

   Begin

   S:=S+i;

   End;

   Write(‘tong can tim la’,S);

   Readln

   End.

   Bình luận