viết chương trình tính tổng sau: S=2+4+6+…+2n với n 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=2+4+6+…+2n với n nhập vào từ bàn phím”

1. 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 la: ‘,s);
      readln
   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var n,s: qword;
       i: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
                   s:=s+2*i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận