Mô tả thuật toán và viết chương trình tính tích P P=1*3*5*(2n-1)

0 bình luận về “Mô tả thuật toán và viết chương trình tính tích P P=1*3*5*(2n-1)”

1. uses crt;

   var n:longint;

   begin

   clrscr;

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

   write(‘Ket qua la: ‘,1*3*5*(2*n-1);

   readln;

   end.

   Bình luận

2. Mô tả: Đây là chương trình tính tích của n số lẻ đầu tiên.

   CT:

   var i,n:longint;
       t,s:int64;
   begin
   write(‘Nhap n: ‘); readln(n);
   t:=1; s:=1;
   for i:=1 to n do
    begin
    t:=t*s;
    inc(s,2);
    end;
   write(‘Tich cua n so le dau tien la: ‘,t);
   end. 

   Bình luận