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 BTH;
   uses crt;
   var a,b,t:longint;
   Begin
   clrscr;
   write(‘Nhap so n: ‘);readln(a);
   t:=1;
   for b:=1 to a do
   t:=t*b;
   writeln(t);
   readln;
   end.

   2/

   Program BTH;
   uses crt;
   var a,b,t:longint;
   Begin
   clrscr;
   write(‘Nhap so n: ‘);readln(a);
   for b:=1 to a do
   t:=t+b;
   writeln(t);
   readln;
   end.

   3/

   Program BTH;
   uses crt;
   var a,b:longint;
   c:real;
   Begin
   clrscr;
   Write(‘Nhap so n: ‘);readln(a);
   For b:=1 to a do
   c:=c+1/b;
   writeln(‘Tong day so tren la: ‘,c:4:2);
   readln;
   end.

   Bình luận