Hãy sử dụng câu lệnh lặp viết công thức tính tích của 20 số tự nhiên đầu tiên

0 bình luận về “Hãy sử dụng câu lệnh lặp viết công thức tính tích của 20 số tự nhiên đầu tiên”

1. Program tinh_tich;
   Uses crt;
   Var i,s: longint;
   Begin
   Clrscr;
    s:=0;
    For i:=1 to 20 do
    s:=s+i;

   Write(‘S = ‘,s);
   Readln
   End.

   Bình luận

2. Program FNG;
   Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 20 do
                   s:=s+i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận