Viết chương trình tính tổng với n là số nguyên? a, S=1+2+3+4+…+n. b, S=1+1/1+1/2+1/3+…1/n. c, S= 2*1+2*2+2*3+-.2*n.

0 bình luận về “Viết chương trình tính tổng với n là số nguyên? a, S=1+2+3+4+…+n. b, S=1+1/1+1/2+1/3+…1/n. c, S= 2*1+2*2+2*3+-.2*n.”

1. pic 1 câu a, pic 2 câu b, pic 3 câu c

   

   Bình luận

2. $Câu a:$

   program a;

   uses crt;

   var n,i,S: integer;

   Begin

            clrscr;

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

            for i:=1 to n do S:=S+i;

            write(‘S = ‘,S);

            readln

   End.

   $Câu b:$

   program b;

   uses crt;

   var n,i: integer;

         S: real;

   Begin

            clrscr;

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

            for i:=1 to n do S:=S+1/i;

            write(‘S = ‘,S:2:2);

            readln

   End.

   $Câu c:$

   program a;

   uses crt;

   var n,i,S: integer;

   Begin

            clrscr;

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

            for i:=1 to n do S:=S+2*i;

            write(‘S = ‘,S);

            readln

   End.

   Bình luận