Viết chương trình in ra màn hình tích của 10 số tự nhiên đầu tiên

0 bình luận về “Viết chương trình in ra màn hình tích của 10 số tự nhiên đầu tiên”

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

   Bình luận

2. program oken;

   uses crt;

   var i,t:longint;

   begin

   clrscr;

   t:=1;

   for i:=1 to 10 do

       t:=t*i;

   writeln(‘tich cua 10 so tu nhien dau tien: ‘,t);

   readln;

   end.

   Bình luận