viết chương trinh tinh tổng N so tư nhiên biết N nhận vào tư bàn phim

0 bình luận về “viết chương trinh tinh tổng N so tư nhiên biết N nhận vào tư bàn phim”

1. uses crt;
   var n,i,s:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           for i:=1 to n do inc(s,i);
           write(‘Tong: ‘,s);
           readln
   end.

   Bình luận

2. Program Tenchuongtrinh;

   Uses crt;

   Var tong,n:longint;

   Begin

            Clrscr;

            Write(‘Nhap so n= ‘); readln(n);

             tong:=0;

             For i:=1 to n do

               tong:=tong+i;

             Writeln(‘Tong cua ‘,n,’ so tu nhien la: ‘,tong);

             Readln;

   End.

   Bình luận