Ta có S=1+2+…+n. Viết công thức tính tổng các số chia hết cho 3 trong khoảng [1…n]

0 bình luận về “Ta có S=1+2+…+n. Viết công thức tính tổng các số chia hết cho 3 trong khoảng [1…n]”

1. program tong_chiahet_3;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

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

          t:=0;

          for i:=1 to n do

                 if i mod 3=0 then t:=t+i;

          write(‘Tong cac so chia het cho 3 tu 1 den ‘,n,’ la: ‘,t);

          readln;

   end.

   Bình luận

2. Công thức: for i:=1 to n do if i mod 3 = 0 then s:=s+i;

   VCT:

   program phuongt;
   uses crt;
      var n, s, i: integer;
   begin
              clrscr;
              write(‘Nhap n = ‘); readln(n);
              s:=0;
              for i:=1 to n do if i mod 3 = 0 then s:=s+i;
              write(‘Tong cac so chia het cho 3 la: ‘, s);
              readln
   end.

   Bình luận