Viết chương trình lặp với số lần biết trước và số lần lặp chưa biết trước cho: a) tính tích S sau: S= 1x2x3x-…xn b) tính tích S sau: S= 1*1×2*2×3

0 bình luận về “Viết chương trình lặp với số lần biết trước và số lần lặp chưa biết trước cho: a) tính tích S sau: S= 1x2x3x-…xn b) tính tích S sau: S= 1*1×2*2×3”

1. a)

   Program NhatNgu;
   Uses crt;
   Var s,n: qword;
       i: byte;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=1;
           For i:=1 to n do s:=s*i;
           Write(‘S = ‘,s);
           Readln
   End.

   b)

   Program NhatNgu;
   Uses crt;
   Var s,n: qword;
       i: byte;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=1;
           For i:=1 to n do s:=s*sqr(i);
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận