viết chương trính tính a. A= 1+2+3+4+…+N,N được nhập từ bàn phím b.X= 1+1/2+1/3+1/4+…+1/n,n được nhập từ bàn phím HELP MEEE

0 bình luận về “viết chương trính tính a. A= 1+2+3+4+…+N,N được nhập từ bàn phím b.X= 1+1/2+1/3+1/4+…+1/n,n được nhập từ bàn phím HELP MEEE”

1. Câu a)

   Program tinh_tong;

   Uses crt;

   Var A,i,n : integer;

   Begin 

   Write (‘Nhap n=’);

   Readln (n);

   A:=0; 

   For i:=1 to n do

   A:= A+ i;

   Writeln (‘Tong A la:’, A);

   Readln

   End.

   Câu b)

   Program tinh_tong;

   Uses crt;

   Var i, n: integer;

          X: real;

   Begin 

   Write (‘Nhap n=’); 

   Readln (n);

   X:=0;

   For i:= 1 to n do 

   X:=X + 1/i ;

   Writeln (‘Tong X  la:’, X:8:3);

   Readln

   End.

   Bình luận

2. a)

   program ct;

   uses crt;

   var i,n:integer;

         A:longint;

   begin clrscr;

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

        A:=0;

      for i:=1 to n do

        A:=A+i;

      writeln(‘Tong A la: ‘,A);

   readln;

   end.

   b)

   program ct;

   uses crt;

   var i,n:integer;

         X:real;

   begin clrscr;

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

        X:=0;

      for i:=1 to n do

        X:=X+(1/i);

      writeln(‘Tong X la: ‘,X:4:2);

   readln;

   end.

   Học tốt!

   Bình luận