viết chuong trình tổng sau S=2+4+6+-.+20 Sn được nhập từ bàn phím

0 bình luận về “viết chuong trình tổng sau S=2+4+6+-.+20 Sn được nhập từ bàn phím”

1. `->`  Trả lời:

   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 phuongt;

   uses crt;

     var s, i: integer;

   begin

                clrscr;

                s:=0;

                for i:=2 to 20 do if i mod 2 = 0 then s:=s+i;

                write(‘S = ‘, s);

                readln

   end.

   Bình luận