Viết chương trình tính tổng n số tự nhiên đâu tiên

0 bình luận về “Viết chương trình tính tổng n số tự nhiên đâu tiên”

1. program ct;

   uses crt;

   var S,i,n:integer;

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

      S:=0;

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

      writeln(‘tong la:’,S);

   readln

   end.

   Bình luận

2. Program BTH;
   uses crt;
   var n,s,i:longint;
   Begin
   clrscr;
   Write(‘Nhap n: ‘);readln(n);
   for i:=1 to n do
   s:=s+i;
   Write(‘Tong day so tren la: ‘,s);
   readln;
   end.

   Bình luận