Em hãy viết chương trình tính tích các số tự nhiên từ 100 đến 1000 ( mai mình kiểm tra r các bạn giúp mình vs)

0 bình luận về “Em hãy viết chương trình tính tích các số tự nhiên từ 100 đến 1000 ( mai mình kiểm tra r các bạn giúp mình vs)”

1. program tinhtich;

   Var i : integer;

   T : longint;

   Begin

   clrscr;

   T:=1;

   For i : = 100 to 1000 do T:=T*i ;

   writeln(‘Tich cac so tu nhien 100 den 1000 la: ‘,T);

   readln;

   end.

   Bình luận

2. program tich;

   uses crt;

   var i: integer;

         S: longint;

   Begin

            clrscr;

            S:=1;

            for i:=100 to 1000 do S:=S*i;

            write(‘Tich = ‘,S);

            readln

   End.

   Bình luận