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.

$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.

Trả lời