viết chương trình tính tích 100 số tự nhiên đầu tiên

0 bình luận về “viết chương trình tính tích 100 số tự nhiên đầu tiên”

1. Program BTH;
   Uses Crt;
   Var: a,b:longint;
   Begin
   Clrscr;
   b:=1
   For a:=1 to 100 do
   b:=b*a;
   Write(‘Tich 100 so tu nhien dau tien la: ‘,b);
   readln;
   End.

   Bình luận

2. Viết chương trình thì viết vậy chứ cái đề này theo cách cơ bản lớp 8 chả bao giờ chạy được =))

   —–

   Program FNG;
   Uses crt;
   Var i: longint;
       s: qword;
   Begin
           Clrscr;
           s:=1;
           For i:=1 to 100 do
                   s:=s*i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận