viết phương trình tính tổng các số từ 1 đến n, vs n nhập từ bàn phím ? ( sử sụng while-do )

0 bình luận về “viết phương trình tính tổng các số từ 1 đến n, vs n nhập từ bàn phím ? ( sử sụng while-do )”

1. Program name

   Uses crt; 

   Var s,i,n : longint;

   Begin

   Clrscr;

   Write(‘Nhap n: ‘); Readln(n); 

   s:=0; i:=1;

    While i<=n do

     Begin

     s:=s+i; i:=i+1;

   End; 

   Writeln(‘tong tu 1 den n la’,S);

   Readln

   End.

   Bình luận

2. Program Hotboy

   Uses crt; 

   Var s,i,n : longint;

   Begin

   Clrscr;

   Write(‘Nhap n: ‘); Readln(n); 

   s:=0; i:=1;

    While i<=n do

     Begin

     s:=s+i; i:=i+1;

   End; 

   Writeln(‘tong tu 1 den n la’,S);

   Readln

   End.

   Bình luận