T = 1*3*5*… *N với N là 1 số tự nhiên lẻ được lập từ bàn phím ( viết pascal)

0 bình luận về “T = 1*3*5*… *N với N là 1 số tự nhiên lẻ được lập từ bàn phím ( viết pascal)”

1. program oken;
   uses crt;
   var i,t,n:longint;
   begin
           clrscr;
           write(‘Nhap so N: ‘); readln(n);
           t:=1;
           for i:=1 to n do
                   if i mod 2<>0 then
                                   t:=t*i;
           writeln(‘Tich T: ‘,t);
           readln;
   end.

   Bình luận

2. program nhan;

   uses crt;

   var n,i: integer;

         t: longint;

   begin clrscr;

      write(‘Nhap so le n: ‘); readln (n);

        t:=1;

        for i:=1 to n do

          if n mod 2 <>0 then

          t:=t*i;

      write(‘T= ‘,t);

   readln;

   end.

   Học tốt!

   Bình luận