dùng câu lệnh lặp while do viết chương trình tính tổng các số từ 1 đến N ( N là số nguyên dương nhập từ bàn phím)

0 bình luận về “dùng câu lệnh lặp while do viết chương trình tính tổng các số từ 1 đến N ( N là số nguyên dương nhập từ bàn phím)”

1. Program FNG;
   Uses crt;
   Var n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; i:=1;
           While i<=n do
           Begin
                   s:=s+i;
                   inc(i);
           End;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận

2. Program tinhoc;
   Uses crt;
   Var n,i,s: longint;
   Begin Clrscr;
       Write(‘Nhap n: ‘); Readln(n);
           s:=0; i:=1;
        While i<=n do
           Begin
                s:=s+i; inc(i);
           End;
        Write(‘S = ‘,s);

   Readln;
   End.

   Học tốt!

   Bình luận