Viết chương trình: 1. T:=1 * 2 * 3 * 4 *…*n 2. S:=1+2+3+…+n 3. S:= 1+ 1/2 + 1/3 +1/4 +….+1/n Trong đó n là số nguyên dương được nhập từ bàn phím.

0 bình luận về “Viết chương trình: 1. T:=1 * 2 * 3 * 4 *…*n 2. S:=1+2+3+…+n 3. S:= 1+ 1/2 + 1/3 +1/4 +….+1/n Trong đó n là số nguyên dương được nhập từ bàn phím.”

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

   2. Program BTT;
   Uses crt;
   Var n,i: longint;
       s: qword;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
                   s:=s+i;
           Write(‘S = ‘,s);
           Readln
   End.

   3. Program BTT;
   Uses crt;
   Var n,i: longint;
       s: extended;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
                   s:=s+1/i;
           Write(‘S = ‘,s:0:2);
           Readln
   End.

   Bình luận

2. uses crt;

   var s1,t,i,n: longint;

          s2: real;

   begin

     clrscr;

      t:=1;

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

      for i:=1 to n do 

          begin 

            t:=t*i;   s1:=s1+i;  s2:=s2+1/i; 

          end;

   writeln(t);   writeln(s);   writeln(s2:0:0);

   readln;

   end.

   Bình luận