Viết chương trình tính tổng các số từ 1 đến N nhập từ bàn phím theo 2 cách: for- do và while- do Giúp mình với mình cần gấp

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 theo 2 cách: for- do và while- do Giúp mình với mình cần gấp”

1. T:=0;

   For i:=1 to n do t:=t+i;

   ///

   t:=0;

   i:=0;

   while i<>n do 

    begin

      Inc(i); // i:=i+1;

      T:=t+i;

    end;

   Bình luận

2. For – do:

   Program BTT;
   Uses crt;
   Var n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
                   s:=s+i;
           Write(‘Tong la: ‘,s);
           Readln
   End.

   While – do:

   Program BTT;
   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(‘Tong la: ‘,s);
           Readln
   End.

   Bình luận