viết chương trình tính tổng sau: S=1+3+5+…+(2n+1) với n được nhập vào từ bàn phím

0 bình luận về “viết chương trình tính tổng sau: S=1+3+5+…+(2n+1) với n được nhập vào từ bàn phím”

1. uses crt;
   var i,S,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=0 to n do S:=S+(2*i+1);
      write(‘S la: ‘,S);
      readln
   end.

   Bình luận

2. Program FNG;
   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+(2*i+1);
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận