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 FF;

   Uses Crt;

   Var: a,b:longint;

   Begin

   Clrscr;

   b:=1

   For a:=1 to 100 do

   b:=b*a;

   Write(‘Tong ba so dau tien la: ‘,b);

   readln;

   End.

   Bình luận

2. program Min;
   uses crt;
   var i:integer; tich:longint;
   begin
      clrscr;
      tich:=1; 
      for i:=1 to 100 do tich:=tich*i;
      writeln(‘Tich la: ‘,tich);
      readln
   end.

   Bình luận